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Libri firmati JACKSON 


Roberto Rigo 

SPECTRUM TOOL 
Programmi di utilità, grafica e gioco 

Una giusta via di mezzo tra la praticità di uso e la 
velocità di esecuzione di un programma è 
rappresentata dall'uso combinato del BASIC e del 
linguaggio macchina; la conoscenza di quest’ultimo è 
comunque indispensabile per poter sfruttare a pieno il 
proprio calcolatore. 

Questa è la premessa da cui parte l'autore, per 
proporre una serie di interessanti programmi BASIC 
che si servono di routine scritte in linguaggio 
macchina. 


182 pagine 

Codice 554D L. 15.000 

Codice 567D L. 24.000 (Con cassetta) 


Joseph Kascmer 

FACILE GUIDA AL COMMODORE 64 


Questo libro vi insegnerà in poche ore ad usare il 
vostro Commodore 64, cominciando dalla tastiera e dal 
video, per passare poi alle altre periferiche più comuni, 
l'unità a dischi e il registratore a cassette. 

Imparerete con estrema semplicità a scrivere 
programmi in BASIC, ma se questo non è il vostro 
obiettivo potete “saltare” i Capitoli dedicati alla 
programmazione e imparare invece come utilizzare 
“pacchetti" di software preconfezionati. 

140 pagine 

Codice 400D L. 13.500 


Francesco Lentini 

CONOSCI TE STESSO TRAMITE IL TUO 
PERSONAL COMPUTER 

Il libro si compone di cinque’ capitoli, ognuno dei quali 
attinge ad una delle discipline che affrontano in 
qualche modo lo studio della personalità umana: 
Numerologia, Astrologia, Grafologia, Scienza del 
Comportamento, Test di Intelligenza. 

I programmi sono stati scritti per Apple II e sono 
disponibili su cassetta e dischetto; nelle due Appendici 
ci sono i consigli necessari per adattarli a qualsiasi 
altro PC della stessa generazione. 

128 pagine 

Codice 401D L. 12.000 

Codice 412D L. 24.000 (Con cassetta) 
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Per qualche contatto in più 


di Riccardo Paolillo 

La pubblicità, si sa, è l'anima del commercio. Era 
quindi ampiamente prevedibile che la maturazione defi¬ 
nitiva del mercato del personal computer sarebbe coin¬ 
cisa con un deciso sforzo promozionale. 

Nonostante questo, molti osservatori saranno rimasti 
sicuramente stupiti dall’entità di questa azione che ha 
ormai assunto le dimensioni di un vero e proprio martel¬ 
lamento pubblicitario. 

Ignorare i messaggi pubblicitari che, da qualche mese a 
questa parte, vengono incessantemente proposti me¬ 
diante tutti i maggiori mass-media è molto difficile, se 
non impossibile, anche per l’osservatore più disattento. 
E rimanendo nell’ottica, che riteniamo corretta, secon¬ 
do cui la pubblicità ben realizzata è soprattutto infor¬ 
mazione, questo fatto è sicuramente positivo. 

Lo è sicuramente ancor più in questo caso particolare 
riguardante un prodotto molto giovane e non ancora 
universalmente conosciuto e diffuso, quale è il personal 
computer. 

Dal punto di vista strettamente commerciale la posta in 
gioco è veramente alta: quello che fino a poco tempo fa 
era un mercato di élite ha rapidamente raggiunto di¬ 
mensioni tali da mobilitare i vari produttori in una gara 
senza esclusione di colpi. Sono state così stanziate cifre 
ingenti allo scopo di aumentare il numero di contatti, 
cioè delle persone raggiunte dal messaggio. 


Naturalmente le grosse case, grazie a investimenti più 
elevati, hanno potuto farsi conoscere meglio sfruttando 
soprattutto la collaudata efficacia del mezzo televisivo. 
Ma anche le aziende meno importanti stanno racco¬ 
gliendo i frutti di una intensa attività promozionale 
svolta mediante altri mezzi come la pubblicità su gior¬ 
nali e riviste, l'affissionistica o altri, meno diretti, quali 
le sponsorizzazioni. 

Se in Italia la battaglia è dura, ma sostanzialmente 
corretta, anche perché tutelata da regole ben precise 
quali il Codice di Autodisciplina della Pubblicità, altro¬ 
ve non si esita a ricorrere anche ai colpi bassi. 

Pochi giorni prima di Natale, a Cambridge in Inghilterra, 
Clive Sinclair (il papà di ZX8I, Spectrum e QL) ha 
avuto una accesissima discussione con Chris Curry, 
amministratore delegato della Acorn Computer ed ex 
collega dello stesso Sinclair. 

Questo violento alterco, conclusosi a suon di pugni, era 
dovuto ad una campagna pubblicitaria Acorn che criti¬ 
cava i prodotti Sinclair, cosa ovviamente poco gradita a 
Sir Clive. 

Casi di produttori che adottano pubblicità di tipo 
comparativo o distruttivo sono molto frequenti negli 
Stati Uniti; in Italia queste forme promozionali non 
sono consentite e quindi una azienda può decantare le 
virtù dei propri prodotti, ma non paragonandoli fazio¬ 
samente a quelli concorrenti. 

Questa situazione unita al fatto che il coinvolgimento 
personale dei manager nostrani è molto più ridotto che 
altrove, fa sì che queste scene da western siano da noi 
difficilmente immaginabili: da un certo punto di vista è 
un peccato, anche questa è pubblicità! ■ 
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-Ecco chi si è abbonato,- 
ha risparmiato e ha vinto 
un Commodore 64 


Pubblichiamo l’elenco dei primi 40 fortunati vincitori del concorso abbonamenti 
Jackson 1985. A loro vanno le nostre più vive felicitazioni e agli altri nostri 
abbonati l’augurio di essere fra i 60 restanti fortunati. 

Il prossimo mese pubblicheremo l’elenco di altri 20 fortunati vincitori. 



1) AIROLDI Marco 

Via R. Felisalli, 5 
44100 FERRARA (FE) 

2) GHEZZO Guglielmo 

Via dei Pini, 58 
45010 ROSOLINA (RO) 

3) BECCARI Alberto 

Via XXV Aprile 

46010 BREDA CISONI (MN) 

4) CAREDDU Mauro 

Via Is. Mirrionis, 95 
09100 CAGLIARI (CA) 

5) CARETTONI Roberto 

Via Europa, 21 

20010 POGLIANO MILANESE (MI) 

6) LUPARIA Renato 

Via Vallescura. ' 85 
15030 CONZANO (Al) 

7) ANTOLINI Mariano 

Via Isnardi, 32/19 
16016 COGOLETO (GE) 

8) JANNONI SEBASTIANI Giulio 

Via Livorno, 89 
00162 ROMA (RM) 

9) TARALLO Vincenzo 

Via G. D'Agostino, 18 
89029 TAURIANOVA (RC) 

10) C.B.L. COMPUTERS Sne 

Via S. Carlo, 13 

98060 S. ANGELO DI BROLO (ME) 

11) FABBRETTI Giuseppe 

Via Delle Baleniere, 92 
00121 OSTIA UDO (RM) 

12) FABBRI Fabio 

Via Cellini, 16/C 
57023 CECINA (LI) 



13) TUCCELLA Silvano 

Via M. della Misericordia, 12 
66100 CHIETI (CH) 

14) RUSSO Enrico 

Via Cacciapuoli, 58 
84014 GIULIANO (NA) 

15) CURSARO Paolo 

Via Nazionale, 100 

84040 CAPACCIO SCALO (SA) 

16) AMABILI Stefania 

Via M. Barlololli, 8 

48023 MARINA DI RAVENNA (RA) 

17) ROSSI Alessandro 

Via Yuri Gagorin, 5/2 
40044 PONTECCHIO 
MARCONI (BO) 

18) PAGNINI Marco 

Via Partigiani, 15 
61100 PESARO (PS) 

19) CHILLA' Aldo 

Via Verdi, 6 

50055 LASTRA A SIGNA (FI) 

20) TOMASELLA Miguel Angel 

Via S. Tiziano, 5 

31020 ZOPPE 

DI S. VENDEMIANO (TV) 


29) SICHEL Teresa 

Via Volontari Del Sangue, I 
29010 PONTENURE (PC) 

30) DE MARZO Silvio 

Via Napoli, 5 
89024 POLISTE NA (RC) 

31) NOCERA Gaspare 

Via Edil. A36 
21020 ISPRA (VA) 

32) I.T.I.S. “A. VOLTA" 

P.zza S. Moria Della Fede, 16 
80141 NAPOLI (NA) 

33) TURO Andrea 

Via Dormelello, 84 
28041 ARONA (NO) 

34) TALEBBE Silvano 

Vìa Purocelo, 21 
40026 IMOLA (BO) 

35) ZOLLO Sandro 

Via Monastero, 127/1 
17026 NOLI (SV) 

36) LORETELLI Albertino 

Via Dei Villini, 23 
04011 APRII IA (IT) 

37) ANTONELLI Antonio 

Via Adriatico Vico X, 8 
66036 ORSOGNA (CH) 

38) CAPORALE Enzo 

Via Ten. Villi, 93 
70043 MONOPOLI (BA) 

39) MUSACCHIA Benedetto 

Via Terra Sonia, 92 
90141 PALERMO (PA) 

40) PALA Bruno 

Vìa Malleolli, 33 
09026 SAN SPERANTE (CA) 


21) SCOLA Livio 

Villaggio Riviera, 35 
320)0 FARRA D ALPAGO (BL) 

22) POLI Carlo 

Via Slradello. I 
20129 MILANO (MI) 

23) ROSSI Guido 

P.zza Vittorio Emanuele II, 5 
50065 PONTASSIEVE (FI) 

24) BANDEUO Nelide 

Via Posubio, 4 
37045 LEGNAGO (VR) 

25) POOL INFORMATICA Srl 

Vio Emilia S. Stelano, 9/C 
42100 REGGIO EMILIA (RE) 

26) TINCANI Daniele 

Via Trieste, 6 
55040 RETIGNANO 
DI STAZZEMA (LU) 

27) BASCHIERA Bruno 

Via Rìzzos 

33091 CASTELNUOVO 
DEL FRIULI (UD) 

28) LENZA Pietro 

Via Degli Eucalipti, 14 
84100 SALERNO (SA) 

























A caccia dell'articolo 

Ho scoperto da poco la vostra 
rivista e vi ho trovato molto mate¬ 
riale di notevole interesse, purtrop¬ 
po però ho cercato inutilmente un 
indice degli argomenti trattati nei 
vari numeri per sapere quali pro¬ 
grammi sono stati'pubblicati per il 
mio personal computer. Vorrei 
quindi chiedervi se è possibile rice¬ 
vere un elenco perlomeno degli ar¬ 
ticoli e dei programmi relativi allo 
Sharp serie Z700 per potervi richie¬ 
dere i numeri arretrati che mi inte¬ 
ressano. 

Francesco Marcucci 
Roma 

La sua richiesta sta diventando 
sempre più frequente, anche da par¬ 
te di altri lettori. In effetti ci rendia¬ 
mo conto che sono molti gli amici 
lettori che abbiamo acquisito duran¬ 
te il cammino e che ovviamente han¬ 
no interesse a rintracciare articoli e 
programmi riguardanti il proprio 
personal. 

Per tutti loro, e anche ovviamente 
per la comodità di tutti gli altri, stia¬ 
mo preparando un indice generale di 
tutti i numeri della rivista finora 
pubblicati. Ancora un po’ di pazien¬ 
za e sarete accontentati tutti. 


Ancora sul Print At 

Sul numero 21 di Ottobre ho let¬ 
to di un suggerimento utile per la 
simulazione dell'istruzione “Print 
At” su C 64. 

Vorrei proporre anch’io il mio che 
spero semplifichi ulteriormente il 
problema: infatti è sufficiente digi¬ 
tare: 

Poke 780,0 
Poke 781,R 
Poke 782,C 


dove r = riga ; c = colonna 
Sys 65520 per l’uso della routine 
del Kernal. 

Marco Foti 
Roma 


Pubblichiamo ben volentieri Usuo 
suggerimento in quanto la possibili¬ 
tà di poter indirizzare in modo velo¬ 
ce e semplice il video è sicuramente 
sentita dai numerosi programmatori 
di C 64. 

Con l'occasione ribadiamo l’invito, 
aperto a tutti, di inviarci piccoli 
trucchi o qualunque cosa possa inte¬ 
ressare gli altri lettori. Noi saremo 
lieti di pubblicare i vostri interventi 
in queste colonne o nell’ambito della 
rubrica I segreti del personal. 


La guerra dei prezzi 

Ho acquistato recentemente un 
C 64 e ne sono molto soddisfatto. 
L’altro giorno mi ha fatto molta 
rabbia vedere il mio stesso compu¬ 
ter in vendita in un altro negozio 
ad un prezzo nettamente inferiore. 
Sono tornato piuttosto infuriato 
dal mio venditore che mi ha liqui¬ 
dato dicendomi che se qualcuno 
vende sottocosto lui non può farci 
niente. Voi cosa ne pensate? 

Antonello Marini 
Milano 


In questo periodo caratterizzato 
da una infazione che, se pure scesa 
sensibilmente, incide in maniera 
sempre notevole sui prezzi a! consu¬ 
mo, Punico articolo con costi ten¬ 
denti al ribasso è forse il personal 


computer. Questo fatto è dovuto, 
com'è noto, a vari fattori quali la 
disponibilità di componenti elettro¬ 
nici a prezzi sempre più ridotti e 
l’ammortamento di costifissi di pro¬ 
getto e produzione dovuto a! numero 
enorme di esemplari venduti. Ma 
questa situazione da sola non po¬ 
trebbe spiegare inconvenienti come 
quelli citati da! lettore, che peraltro 
ci risulta siano effettivamente acca¬ 
duti. La Commodore pubblicizza un 
listino di vendita a!pubblico, al qua¬ 
le i rivenditori dovrebbero attenersi. 
Questo listino prevede prezzi più ca¬ 
ri di quelli normalmente praticati 
dalla maggior parte dei rivenditori. 
Molti dettaglianti preferiscono ri¬ 
durre i prezzi di vendita, diminuendo 
i propri margini di guadagno, ma 
con la speranza di vendere di più. 
Altri poi portano questa politica alle 
estreme conseguenze e vendono con 
margini ridottissimi o addirittura 
sottocosto. È chiaro che soprattutto 
questi ultimi non possono fornire al¬ 
l’acquirente tutta l’assistenza pre e 
postvendita di cui necessita e che 
può invece essere prestata da chi 
vende a prezzi più corretti. 

Esistono poi altre situazioni con¬ 
tingenti e obiettive che rendono dif¬ 
ficili e a volle rischiose le cose all'o¬ 
peratore commerciale. La tendenza 
al ribasso, ad esempio, porta a sva¬ 
lutazioni continue de! valore de!ma¬ 
gazzino de! rivenditore, che è quindi 
incentivato a farlo girare (quindi a 
vendere) il più possibile. I controlli 
in ogni caso sono molto difficili, an¬ 
che per l’enorme diversificazione dei 
punti vendita. 

In definitiva l'unico consiglio che ci 
sentiamo di dare è quello di ricor¬ 
darsi che non sempre tutto si risolve 
con il primo acquisto e se un domani 
si avrà bisogno dell'intervento dei 
rivenditori non si rimpiangerà qual¬ 
che lira pagata in più a fronte di un 
intervento serio e tempestivo. 
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Un nuovo computer didattico 
per 8088 

La Digitek Computer ha recente¬ 
mente stipulato un accordo per la 
distribuzione sul territorio italiano 
del Microprofessor 1/88, nuovo 
computer didattico basato sul mi¬ 
croprocessore Intel 8088 a 16 bit. 
Questo nuovo prodotto va a com¬ 
pletare la gamma dei computer di¬ 
dattici della Digitek Computer già 
presenti sul mercato italiano che so¬ 
no, lo ricordiamo: 

• Microprofessor 1/P (microproces¬ 
sore Z80 a 8 bit); 

• Microprofessor 1/65 (micropro¬ 
cessore 6502 a 8 bit). 

È questa una ulteriore conferma del¬ 
l’interesse della Digitek Computer, 
di Bagnolo in Piano (RE), per il mer¬ 
cato della didattica. La Società può 
infatti vantare una tra le più vaste 
gamme di computer didattici pre¬ 
senti sul mercato italiano. 
L’immediata disponibilità, i prezzi 
particolarmente convenienti e l’am¬ 
pia possibilità di scelta sono i punti 
di forza della Digitek Computer in 
questo segmento di mercato. 

Digitek S.r.l. 

Via Vaili. 28 

420li Bagnolo in Piano (RE) 

Tel. 0522-61623 


La RAI e i micro 


A partire dal 15 Ottobre ì'Orec- 
chiocchio , programma musicale del¬ 
la terza rete televisiva della RAI, ha 
realizzato una rubrica dedicata ai 
microcomputer. Nel corso della tra¬ 


smissione vengono presentate le no¬ 
vità del software e dell’hardware, 
con particolare attenzione ai giochi 
e a tutte le anticipazioni di mercato. 
Esiste lo spazio per la rassegna del 
software italiano e la vetrina del fu¬ 
turo; sono svelati i segreti e i trucchi 
dei micro e vengono organizzati 
concorsi e gare per il pubblico. 
L’impegno di TV3 ha inteso quindi 
concentrarsi sull’offerta di novità 
assolute in anteprima e sulle dimo¬ 
strazioni spettacolari dei migliori 
programmi, in una fascia oraria di 
largo ascolto: l’Orecchiocchio va in 
onda da lunedì a venerdì alle 18.15. 


Koala non è solo Touch Tablet 


Altri prodotti della società califor¬ 
niana sono Muppet Learning Keys e 
Speed Key. Il primo è un dispositivo 
tattile per aiutare i bambini ad asso¬ 
ciare lettere e suoni (A come Alliga¬ 
tore), imparare i numeri (battendo 
“3” compaiono 3 coccodrilli) e i co¬ 
lori (se si tocca il tasto “blu”, i tre 
coccodrilli si tingono d’azzurro). La 
grande e robusta tavolozza è com¬ 
posta da una sezione alfabetica, con 
le lettere in ordine crescente, una 
parte in colore che richiama una sca¬ 
tola di acquarelli, un righello che 
riporta le cifre da 0 a 9 e quattro 
spiritosi personaggi. Ognuno di 
questi Muppet è associato ad una 
particolare attività come va (Kermit 
guida una motocicletta) o fermati 
(l’orso Fozzie ha una paletta di 
Stop) e così via. Il prodotto si rivol¬ 
ge a ragazzi di età superiore ai 3 anni 
che stanno imparando l’alfabeto, i 
numeri e i colori. Ne esistono due 
versioni: per Commodore 64 e Ap¬ 
ple Ile. 11 sistema Speed Key si rivol¬ 
ge, invece, agli utenti di diffusi ap¬ 



plicativi per la linea degli IBM PC, 
realizzando mediante un software 
specializzato e nove mascherine pre¬ 
parate, un’interfaccia utente più ra¬ 
pida e semplice per questi program¬ 
mi. La tavoletta si trasforma in una 
tastiera personalizzata con un mas¬ 
simo di 36 tasti funzione program¬ 
mabili e un buon sistema di control¬ 
lo del cursore. Le mascherine sono 
state preparate per facilitare il lavo¬ 
ro con package quali Wordstar, Lo¬ 
tus 1-2-3, dBase II, VisiCalc, Super- 
Cale, pfs:Write e Multiplan, senza 
dimenticare il BASIC ed il sistema 
operativo DOS 2.0. L’uso dello stru¬ 
mento e del software Speed Key 
consente di ridurre al tocco di un 



solo punto della tavoletta quelle che 
in origine sono delle complesse se¬ 
quenze di tasti. In più, le sequenze 
più usate dall’utente possono essere 
definite per mezzo del package arri- 
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vando a personalizzare le proprie 
mascherine. 

Telav International S.r.l. 

Via Leonardo da Vinci, 43 
20090 Trezzano S/N (MI) 

Tei 02-4455741 


Club per microfili 


Per gli appassionati dello Spectrum 
Sinclair segnaliamo la nascita di un 
Club romano riservato ai possessori 
della macchina del geniale sir Clive. 


Si tratta del Sinclair Club Roma- 
Talenti che promuove tra l’altro ini¬ 
ziative di scambio di programmi tra 
soci ed acquisizione di software di¬ 
rettamente dall’Inghilterra per poi 
diffonderlo a prezzi di costo agli as¬ 
sociati. L’iscrizione è libera su tutto 
il territorio nazionale. 

Da Cesena l’ARCI informa di aver 
organizzato un club per utenti di 
piccoli sistemi. ARCI Bit fa parte 
dell’Associazione Ricreativa e Cul¬ 
turale Italiana di Cesena e si prefig¬ 
ge di favorire i contatti tra utenti di 
micro-home computer con scambi 
di software, idee, bibliografie, e di 
quant’altro può essere interessante. 
Intende anche preparare supporti 
magnetici contenenti programmi ri¬ 
servati ai soci per facilitare l’approc¬ 


cio critico e intelligente alle nuove 
tecnologie. È in cantiere un bolletti¬ 
no per i soci riservato alla diffusione 
di listati, schemi hardware, richieste 
di scambi ed acquisti di materiale 
elettronico. 

Sinclair Club Roma-Talenti 
c/o Massimo D'Ascenzo 
Via D'Ovidio. 109 
00137 Roma 
Tel. 06-8280043 


ARCI Bit 

c/o Coop. Casa de! popolo S. Egidio 
Via Cervese, 181 
47023 Cesena (FO) 

Tel. 0547-24081 



• GRAPHKIT 
PER SPECTRUM 


• EQUADIF PER C 64 


• PIANI 

D’AMMORTAMENTO 
CON LO SHARP 


TROVERETE 

• TEXT-EDITOR 
PER TI 99 

• OROSCOPO 
PER SPECTRUM 

• PIANI 

D’AMMORTAMENTO 
CON LO SHARP 


• GOLLUM PER C 64 

• LA BATTAGLIA 
DEL LAGO 
GHIACCIATO 
PER C 16 

• TOTOCALCIO 
CON L’APPLE 
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UNA PUBBLICAZIONE 
GRUPPO EDITORIALE JACKSON 



MENSILE DI TELEMATICA, 
TRASMISSIONE DATI 
E TELEFONIA. 



Lavagna sensibile al tatto 
per microeoniputer 


Il software “educativo” presente sul 
mercato necessita, nella maggior 
parte dei casi, della tastiera del com¬ 
puter. Per gli adulti ed i bambini 
(che sappiano già leggere) non c cer¬ 
to così naturale passare attraverso 
questo dispositivo per comunicare e 
imparare. Da queste considerazioni 
nasce Power Pad, una lavagna sensi¬ 
bile al tocco, di 30 per 30 cm, primo 
prodotto specializzato della geor¬ 
giana ChalkBoard. È una lavagna 
sensibile al tatto perché la comuni¬ 
cazione attraverso questo senso è la 
più naturale ed istintiva, e rende fa¬ 
cile e spontaneo dare ordini alla 
macchina, toccando il simbolo rela¬ 
tivo. 

Studiata con una certa attenzione 
alla sicurezza, questa lavagna si col¬ 
lega all’elaboratore (Commodore, 
Atari, Apple, IBM, Texas) attraver¬ 
so l’ingresso dei joystick e non ne¬ 
cessita quindi di particolari interfac¬ 



ce né presenta il pericolo di esporre 
chi la usa al rischio di toccare circui¬ 
ti sotto tensione. Gli ordini inviati in 
corrispondenza della pressione di 
certi punti della Power Pad variano 
con il software usato in abbinamen¬ 
to alla lavagna, riunito nella interdi¬ 
sciplinare “Biblioteca di Leonar¬ 
do”. Ogni secondo la superficie del¬ 
la Power Pad viene scandagliata 20 
volte alla ricerca dei punti attivati 
dalla pressione delle dita e tutti i 
comandi vengono inviati al micro- 
processore. 

Questa tecnica consente di emettere 
accordi quando il programma asso¬ 
ciato trasforma la lavagna in una 
tastiera di uno strumento musicale. 
ChalkBoard ha progettato e realiz¬ 
zato un gruppo di pacchetti applica¬ 
tivi costituiti da un programma su 
supporto magnetico e da una ma¬ 
scherina trasparente su cui sono 
tracciati i simboli corrispondenti 
agli ordini attesi dal programma 
stesso. 

Micro Maestro consente ad esempio 
di suonare un pianoforte dotato di 
due ottave tramite la pressione dei 
punti corrispondenti ai tasti riporta¬ 
ti sulla mascherina che si appoggia 
alla lavagna. Le note o gli accordi 
vengono anche mostrati su di un 
pentagramma coinvolgendo così 
anche il senso della vista oltre a 
quello dell’udito. Logic Master è un 
gioco di logica per più concorrenti. 
La mascherina riporta in questo ca¬ 
so i simboli relativi ai comandi ne¬ 
cessari al fine di uscire vincitori dal¬ 
la competizione. Altri programmi 
trasformano la lavagna in una tavo¬ 
lozza o in uno...studio tecnico con 
possibilità di tracciare figure geome¬ 
triche e di manipolarle. Esiste poi un 
programma per imparare a giocare 
a golf o tenersi in allenamento e Be¬ 
ar Jam, un’applicazione per inse¬ 
gnare concetti astratti ai bambini in 
età prescolare. 

A i cona S.r.l. 

Via Filippino Lippi. 19 
20131 Milano 
Tel.02-2367595 
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C atalogo nastri 



Come archiviare 
i programmi 
del vostro 
Sharp MZ-700 

di Martino Sangiorgio 

Q uesto programma permet¬ 
te di conoscere il contenu¬ 
to di cassette (di program¬ 
mi, naturalmente, non di musica), in 
più dà ulteriori e a volte importanti 
informazioni sugli archivi letti. 

Non appena lo si carica da cassetta 
(su cui è stato salvato con le modali¬ 
tà spiegate più avanti), viene imme¬ 
diatamente lanciato: inizia quindi a 
leggere la cassetta attualmente inse¬ 
rita nel registratore che, in questo 
caso, c quella che lo contiene. Basta 
fermare il registratore, togliere la 
cassetta col programma e inserire 
quella di cui si desidera conoscere il 
contenuto. 

Per ogni archivio letto, vengono evi¬ 
denziali sullo schermo: 

1 ) un numero progressivo dell'archi¬ 
vio; 

2) il nome con cui è stato creato 
l'archivio; 

3) il tipo dell’archivio, e cioè: 


• 01 = linguaggio macchina, 

• 04 = archivio di I/O, 

• 05 = programma BASIC; 

4) la taglia (cioè la lunghezza) del¬ 
l’archivio, in esadecimale e decima¬ 
le; 

5) l’indirizzo di inizio dell’archivio 
(in esadecimale e decimale); 

6) l’indirizzo di fine dell'archivio (in 
esadecimale e decimale); 

7) l’indirizzo di esecuzione dell’ar¬ 
chivio (in esadecimale e decimale, 
solo per programmi in linguaggio 
macchina). 

Il numero progressivo è sempre in¬ 
crementato di I. Per azzerarlo è ne¬ 
cessario interrompere il programma 
(utilizzando i tasti Shift e Break pre¬ 
muti contemporaneamente oppure 
utilizzando il tasto Reset sul retro 
del computer) e rilanciarlo (ad 
esempio con un comando Monitor 
“JA000”). 

Tutte le informazioni relative agli 
archivi contenuti in una cassetta 
possono essere raccolte in fogli, 
strutturati in modo analogo a quello 
visibile nella figura I. 

Ma forse il più importante utiliz¬ 
zo di questo programma sta nella 
possibilità offerta di duplicare pro¬ 
grammi scritti in linguaggio macchi¬ 
na. Conoscendo infatti l’indirizzo di 
inizio, quello di fine e quello di ese¬ 


cuzione è possibile, dopo aver cari¬ 
cato in memoria il programma in 
questione, cedere il controllo al Mo¬ 
nitor di sistema e riscrivere la por¬ 
zione di memoria interessata con 
l’apposito comando Monitor "S". 


Il programma 

Il programma è in linguaggio mac¬ 
china e per la sua digitazione vi sono 
tre possibilità: 

' a) utilizzare, se disponbile, l’Editor- 
Assembler SP-2102 (è quello dello 
Sharp MZ80K), o analogo che “gi¬ 
ri" su MZ-700. 

In questo caso è possibile utilizzare 
il listato 1, cioè l’elenco delle istru¬ 
zioni del programma in linguaggio 
Assembler Z80. 

Dopo aver completato la digitazio¬ 
ne, si dovrà convertire il programma 
in linguaggio macchina (per esem¬ 
pio con il “Relocatable loadcr” SP- 
2301 o analogo) a partire dalla loca¬ 
zione di memoria SA000. Anche 
l’indirizzo di esecuzione dovrà esse¬ 
re $A000. 

L’utilizzo di questi programmi di si¬ 
stema è spiegato nei vari manuali, 
per cui non mi sembra opportuno 
procedere, in questa sede, ad una 
loro sintesi; 


N° Contatore 

Titolo 

tipo 

Taglia 

Indirizzo di inizio 

Indirizzo di line 

Indirizzo di esecuzione 

Lato 

Esa 

Decimale 

Esa 

Decimale 

Esa 

Decimale 

Esa 

Decimale 


























Figura I. Facsimile di documento alto a raccogliere e archiviare le informazioni evidenziate da! programma. 
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b) utilizzare il Monitor IZ-013A di 
sistema, incorporato nei primi 4 
Kbyte di memoria del sistema, op¬ 
pure il Monitor presente nella sezio¬ 
ne IOCS dell’interprete BASIC. 

In entrambi i casi si dovrà usare il 
listato 2 e procedere come segue: 

1) se si vuole usare il Monitor di 
sistema, premere il pulsante Reset 
sul retro dell’elaboratore (natural¬ 
mente a macchina accesa). 

Se invece si vuole usare il Monitor 
del’interprete BASIC (il BASIC de¬ 
ve, in questo caso, essere già stato 
caricato in macchina), digitare il co¬ 
mando Bye c premere Cr. Questo 
comando passa il controllo al Moni¬ 
tor del BASIC. In entrambi i casi la 
procedura seguente è in comune, 

2) digitare, nella posizione del cur¬ 
sore vicino all’asterisco: MA000 e 
premere Cr. Questo permette di ini¬ 
ziare la modifica della memoria. Il 
video presenterà ora la seguente ri¬ 
ga: 

A000 00 - 

Si dovrà digitare, nella posizione at¬ 
tuale del cursore, il primo numero 
esadecimale prelevato dal listato 2 
(così com’è, senza modificarlo né 
convertirlo), dopodiché si dovrà 
premere Cr. La modifica verrà ac¬ 
cettata e il video presenterà ora il 
registro successivo (A00I ). 

Si potrà modificare anche questo re¬ 
gistro utilizzando il secondo nume¬ 
ro esadecimale del listato 2, batten¬ 
do poi Cr. E cosi via, fino a modifi¬ 
care direttamente tutti gli indirizzi 
da $A000 a SA232, prendendo i dati 
dal listato 2. 

L’operazione di modifica della me¬ 
moria si può interrompere premen¬ 
do contemporaneamente i tasti Shift 
c Break, 

3) terminata la modifica della me¬ 
moria si può salvare il programma 
scritto nel seguente modo: mettere 
dapprima un nastro nel registratore 
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Seguito listato 1. 

21 00CF 

ISTONPO INDIRIXXO DI 1NIXIO DEL Fli-E. 

22 00CF 

: SIO ES8DECITOLE CHE DECITOLE 

23 00CF 

INDIN: FNT 

24 B0CF CO0600 

C8LL LF.TNL 

25 0002 11 DI 01 

uD DE.INDINS 

26 00DS CD 1500 

C8LL OSO 

2? 00D8 ED5B0411 

uD DE.IDT8DRI 

28 00DC CD1101 

C8LL ST2 

23 00DF CD1A01 

COLL ST3 

J3 00F.2 C3 

PET 

31 00E3 

SKP ! 

33 00E3 

•ST8nP8 IN0IRIX20 DI FINE DEL FILE. 

34 00E3 

: SI8 E58DEC ITOLE CHE DECI DOLE 

35 00£3 

'NDFI : FNT 

36 00F3 CO0600 

COLL LETNL 

3? 00E6 11E501 

LD DE.INDFIS 

38 00E3 CO1500 

COLL HS6 

33 00EC 280411 

l.0 HL, TDTODRI 

•«0 00EF ED4B0211 

uD BC.ISIXF.J 

“l 00F3 03 

HDD ML,BC 

42 00F4 2B 

DEC HL 

«3 00F5 EB 

FX DE, HL 

44 00F6 CO1101 

COLL ST2 

45 00F3 CD1801 

COLL ST3 

16 00FC C3 

PET 

47 00FD 

skp ! 

*9 02FP 

ISTOHPO INDI RI 2X0 DI F.SECU2I0NE DEL FILE. 

50 00FD 

: 818 ES8DECII18LE CHE DECI DOLE 

01 00FP 

INDEX: FNT 

02 00FD CD0600 

COLL LETNL 

03 0100 111B02 

LD DE.INDEXS 

04 0103 CD1500 

COLL rise 

05 0106 ED5B061! 

uD DE.IEXODRI 

06 0108 CD1101 

COLL ST2 

07 0I0D CD1A01 

COLL ST3 

08 0110 C3 

PET 

03 0111 

SKP 3 

13 0111 

••ST8I1P0 JNDIRIXSO ESODECITOLE 

'4 0111 

ST2 : FNT 

15 0111 ?A 

LD O.D 

1 6 0112 CD3401 

COLL STI 

! 7 0115 7B 

LO 8. E 

18 0116 CO3401 

COLL STI 

13 0113 C3 

PET 

20 0118 

SKP ! 

22 011A 

:ST0nP8 INDIRI220 DECITOLE 

23 0118 

ST3: FNT 

24 0118 CD0C00 

COLL PRNTS 

25 011D 3E28 

lD 0.28H 

26 01IF CD!200 

COLL PRNT 

27 0122 217201 

i-0 HL, INDDEC 

28 0125 CD4701 

COLL CONO 

23 0128 117201 

uD DE,INDDEC 

30 012B CD1500 

COLL riSG 

31 0I2F. 3E23 

,-D 0.23H 

32 0130 CD1200 

COLL PRNT 

33 0133 C9 

PET 

34 0134 

SKP 1 

36 0134 

iSTOnPO UN BYTE IN F.SODEC.inOLE 

37 0134 

STI : FNT 

38 0134 F5 

PUSH 9F 

33 0135 0F 

PRCO 

40 0136 0F 

PRCO 

4I 013? 0F 

PRCA 

d 2 0198 0F 

PRCO 

43 0133 CDD803 

COLL OSC 

»4 013C CD1200 

COLL PRNT 

45 0I3F FI 

POP OF 

46 0140 COD803 

COLL OSC. 

A ? 0143 CD1200 

COLL PRNT 

48 0140 C3 

PET 

d 9 0147 

SKP 3 

03 0147 


04 014? 

; CONVERSI ONE DO ESODECITOLE IN DECinOLE 

05 0147 

f 

06 0147 

CONU: FNT 



BiiLLB 


RIVENDITORE AUTORIZZATO 

f|cippkz computer ine. 



Software 

Contabilità generale 80CL Prodos 
Contabilità semplificata 
multiaziendale 
Gestione Parrocchie 
Gestione Alberghi 
Parcellazione studi legali 
Fatturazione su MAC 

Hardware 

Interfacce per Olivetti 
ET 121 /201 /221 /111 
Interfacce per Adler 
G 8008 SE /1005 /1010 /1030 
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RIVISTE JACKSON. 

, LAVOCE 
PIU AUTOREVOLE 
NEL CAMPO 
DELL'ELETTRONICA 
E DELL'INFORMATICA. 


rElettronica 



INFORMATICA 


elektor 


UiDCO 

GiOChì 


elettronica 

OGGI 

ieteCMunKawn: 



GRUPPO 

EDITORIALE 

JACKSON 


Seguilo listalo 1. 





07 0147 

01F0D8 


LO 

BC.D8F0H 


08 2140 

CD6201 


COLL 

CONDÌ 


03 0HD 

0118FC 


uD 

SC.FC18H 


’0 0152 

CO6201 


COLL 

C.0NU1 


M 0153 

013CFF 


LD 

BC.FF3CH 


1 2 0150 

CO620I 


C8LL 

CONDÌ 


>3 0153 

81F6FF 


uD 

BC.FFF6H 


14 0I5C 

CD6201 


COLL 

condì 


<5 01SF 

01FFFF 


>-D 

BC.FFFFM 


'6 0162 

3E2F 

CONDÌ i 

uO 

6.2FH 


'7 0164 

E5 


push 

ML 


18 0165 

D5 


PUSH 

DE 


’3 0160 

F.l 


POP 

HL 


20 0107 

3C 

C0NU2 i 

INC 

0 


21 0168 

03 


ODD 

HL# BC 


22 0163 

38FC 


IR 

C.C0ND2 


23 01GB 

ED42 


SBC 

HL, BC 


24 016D 

EB 


FX 

DE.HL 


25 016F. 

F.l 


p 0F 

HL 


26 016F 

77 


i-D 

CHL),6 


27 0170 

23 


'NC 

HL 


28 0171 

C3 


PET 



23 ei72 



SKF 

J 


33 0172 


JNOPEC : 

FNT 


1 INDIRIZZO DECIFI8LE 

34 0172 



DEFS 

+5 


35 0177 

0D 


PEFB 

0DM 


36 0178 


p R0G • 

FNT 


; NUDERÒ progressido file 

3? 0178 



DEFS 

ti 


38 0173 


OSTi 

FNT 


;PIG8 DI 6STERISCHI 

33 0173 

28282828 


CEFFI 

'*************' 


40 017D 

20202020 





*1 018! 

28262626 





42 0185 

26 





4 3 0186 

0D 


DEFB 

0DH 


“4 0187 


C6T '• 

FNT 


INOPE DEL PR0GR8FIFI8 

*5 0187 

20204341 


DEFtl 

'* C6T6L0G0 *' 


A G 018B 

54414C4F 





47 018F 

474F2020 





48 0133 

28 





*3 0134 

0D 


DEFB 

0DH 


50 0135 


TITS- 

FNT 


ITITOLO DEL FILE 

01 0135 

540636B? 


DEFN 

'Titolo 


02 0133 

B8B72020 





03 0130 

20202020 





04 018! 

20202020 





05 0165 

202038 





06 0168 

0D 


DEFB 

0OH 


07 01 A3 


Tipr,. 

FNT 


:T1P0 DEL FILE 

08 0103 

54863EB7 


DEFF1 

'Tipo 


03 01 OD 

20202020 





10 01B1 

20202020 





11 01B5 

20202020 





12 01B3 

202030 





1 3 01BC 

0D 


DEFB 

0DH 


’4 01BP 


LUNGS: 

FNT 


IT8GLI8 DEL FILE 

'5 0IBP 

546137B8 


DEFH 

'Tg 91ia 


19 BIEè 

mmm 





18 01C3 

20202020 





13 01CP 

202036 





20 01D0 

0D 


DEFB 

0DH 


21 01 DI 


’NOINS 

FNT 


; INDIRIZZO DI INIZIO DEL 

Hi-E 






22 01D1 

43B03C.O6 


DEFFI 

'Indiriz.di inizio i 

23 0105 

3D86622E 





24 01D9 

3CO620OO 





25 01 DO 

B0O6O2O6 





26 01E1 

B72038 





27 01E4 

0D 


DEFB 

0DH 


28 01E5 


INOFIS 

FNT 


1 INDIRIZZO DI FINE DEL F 

ILE 






23 01E5 

43B09CO6 


OEFFI 

'Indirizzo di fino : 

30 01E3 

3D666262 





3! 01 ED 

B7203C66 





32 01F1 

20OOO6B0 





33 01F5 

322030 





34 01F8 

BD 


DEFB 

BDH 


35 01F3 


NU11S : 

FNT 


;NUDERÒ PROGRESSIDO DEL 

«•ILE 






36 01F3 

4 !303F3S 


DEFFI 

'Orchlvio nunroro 


37 0IFD 

6688668? 





38 0201 

20B065B3 
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Catalogo 
_nastri 

e quindi digitare, sempre vicino al¬ 
l’asterisco: 

SA()()()A232A()()0 

Questo comando permette di salva¬ 
re lo spezzone di memoria daM'indi- 
rizzoSAOOO aH’indirizzo$A232,edi 
imporre l’indirizzo di esecuzione in 
$A00(), 

4) se si vuole procedere alla esecu¬ 
zione immediata, digitare: 

JA000 se si è nel Monitor di sistema, 
oppure 

GA000 se si è nel Monitor del BA¬ 
SIC, 

5) quando si caricherà successiva¬ 
mente questo programma da casset¬ 
ta, non dovrà essere presente l'inter¬ 
prete BASIC (utilizzare, eventual¬ 
mente, il tasto Reset). Appena cari¬ 
cato, esso verrà immediatamente 
posto in esecuzione; 

c) utilizzare un programma BASIC. 
E possibile scrivere un programma 



Seguilo listalo 1 . 








33 0205 

32308720 








40 0203 

20203A 








«1 0200 

00 




DEFB 0DM 




A 2 0200 



9RKC • 

FNT 



;rnso 

D! BREAK 

*3 020D 

2A2A2A20 



0EF11 - 

*** BREAK 




•*4 021 1 

1252134 ! 








“5 0215 

4B202A20 








40 0213 

2fì 









«z 02 m 

00 




DEFB 0DM 




“8 021B 



'NOEXS: 

FNT 



; INO!RIUSO DI ESECUZIONE 

DEL FILE 









43 021B 

43003006 



OEFH ' 

[ndlrlx.d 

1ano ì o J 


•50 021F 

3008022 F. 








01 0223 

3CBB10BB 








02 022? 

A1B03FA6 








03 022B 

P7203.A 








04 022F. 

00 




OEFB 0DH 




85 022F 





FNO 





4SC 

03oe 

nr.T 

0173 

f\TP3 

1 0F0 

BELL 

003E 

BRKS 

0200 

TOT 

0187 

CONO 

014? 

CONO! 

0102 

T.0NU2 

016? 

DSPX 

1171 

osrr 

! !?2 

DTBUR 

! 104 

EX8DR 

! 100 

INDDEC 

0172 

INDEX 

00FD 

*N0EX5 

021B 

,'NDFI 

00E3 

1N0FIS 01£5 

INO ]N 

00CF 

INDINS 

01 DI 

KETPA 

£000 

KETPB 

E001 

KETPC 

F002 

KtrpF 

F003 

LETNL 

00e6 

uUNG 

0000 

UINGC 

0100 

ncp 

0060 

msg 

0015 

IW1F 

•0F1 

tm 

0083 

NUtlS 

0IF3 

PRNT 

0012 

PRNTS 

000C 

PROQ 

0178 

RDINF 

0027 

R0UT1 

000E 

R0UI2 

0043 

R0l/T3 

0067 

5IZE 

1 102 

STI 

0134 

ST2 

0i 11 

ST3 

01 in 

START0 

0000 

STARTI 

0003 

T IP 

0000 

TIPS 

01 A3 

Tir 

009B 

TITS 

0135 




che effettui tante Pokedall’indirizzo 
SA000 all’indirizzo SA232, pren¬ 
dendo i dati dal listato 2 (ricordarsi 
che, in tale listato, i numeri sono 
esadecimali). 

Si possono anche utilizzare delle 
istruzioni Data. 


Prima di effettuare le Poke, ricor¬ 
darsi che deve essere stato dato il 
comando (o istruzione): 

LIMIT9FFF 

per limitare l’area di memoria riser¬ 
vata al BASIC. ■ 


LBRBHA JACKSON 

A Milano, 

in via Mascheroni 14. 
La prima software 
libreria italiana 




A Milano, in via Mascheroni 14. 

Tel. 02-437385 


Vieni a trovarci: 

ti aspettiamo. 


Un tempo si andava in libreria per il gusto della 
scoperta, per il piacere di esser informati sulle novità. 
Per incontrarsi, discutere, chiedere un consiglio al 
libraio-amico. Tutto questo è ancora possibile, per un 
prodotto assolutamente nuovo: libri e riviste di 
informatica italiani ed esteri, software, giochi. 


Dove? Alla Libreria JACKSON 

La prima software - libreria italiana. 
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Listato 2. Elenco istruzioni del programma 
in linguaggio macchina (numeri esadecimali). 


20000-CD 

0E 

00 

CD 

27 

00 

CD 

49 

/-CD-.qCD'.C 

DI 

: 0008=00 
V 

CD 

67 

00 

18 

F5 

3E 

16 

/qCD67a.F5 

' • 

:0010=CD 

12 

00 

3E 

0D 

32 

71 

1 1 

'CD..>.271 

:0018=3E 

00 

32 

72 

1 1 

1 1 

79 

01 

'>.272,.79 

0 

:0020=CD 

15 

00 

3E 

0D 

32 

71 

1 1 

/CD..>.271 

:0028=3E 

01 

32 

72 

1 1 

1 1 

87 

01 

/>.272..87 

0 

:0030=CD 

15 

00 

3E 

0D 

32 

71 

1 1 

/CD..>.271 

:0038=3E 

02 

32 

72 

11 

1 1 

79 

01 

/>.272.,79 

0 

:0040=CD 

15 

00 

3E 

00 

32 

78 

01 

/CD.,>.278 

a 

:0048=C9 

3E 

F9 

32 

00 

E0 

00 

30 

/C9>F92.E0 

:0050=01 

E0 

CB 

5F 

C0 

CD 

06 

00 

/.E0CB*C0C 

D. . 

:0058=CD 

06 

00 

CD 

06 

00 

1 1 

0D 

/CD..CD,.. 

:0060=02 

CD 

15 

00 

C3 

60 

00 

CD 

/zCD,,C360 

, CD 

:.0068=3E 

00 

CD 

06 

00 

CD 

06 

00 

/>.CD..CD. 

:0070=CD 

06 

00 

CD 

89 

00 

CD 

9B 
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INCREDIBILE 

TASTIERA - MIDI - SEQUENCER - BATTERIA PROGRAMMABILE 

COMPUTER COMPATIBILE... 



MK900 


MIDI KEYBOARO 


Tastiera portatile stereo - 
MIDI compatibile - a doppia 
generazione sonora 

Possibilità di 

collegamento a computers 




Pedalo d espressione 
(opzionale) 


MIDI IN e MIDI OUT 

10 ritmi + 1 ritmo 
programmabile dall’utente 

10 Presets a doppia 
generazione sonora 

Sequencer in tempo reale: 
260 note + pause, 50 
accordi, batteria per 
memorizzazione dati 


Una straordinaria 
ricchezza timbrica e una 
insuperabile versatilità 
sintetizzate in uno 
strumento a 
microprocessore dalla 
estrema facilità d’uso 



Midi Computer Interface 
(opzionale) 


Divisione della tastiera 
programmabile che permette 
di suonare 

contemporaneamente 2 
timbri oppure un solo timbro 
con polifonia 14 



Demo Song 

Accompagnamento 
automatico multifunzione 

Controcanto automatico 

Transpose, Detune, Stereo 
Chorus 


Amplificazione stereo con 
due altoparlanti biconici a 
sospensione pneumatica 
incorporati 

Tastiera a 61 tasti 

Peso: kg. 6 

Distribuito da 

ARAMI NI 

STRUMENTI MUSICALI 



Cedranodi Gransrolo. vu 8. 8uoui. lb(BotOfru) 
Tel. 051/766.077 
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Raccogliamo con cura 
tutte le nostre foto 

di R. Cobianchi 


Introduzione 

M A una procedura semplice, 
I i di facile utilizzo e appren- 
UÀ dimenio, perché nella qua¬ 
si totalità guidata dalle indicazioni 
che vengono visualizzate. 

È indirizzata a tutte quelle persone 
che hanno lo “scatto” facile e che 
sicuramente possiedono una grande 
quantità di diapositive, di stampe 
ecc. Magari le diapositive sono an¬ 
cora nelle scatolette che fornisce il 
negozio dove vengono sviluppate. 
In questo caso in particolare, è diffi¬ 
cile, pensiamo, la ricerca di una dia¬ 
positiva che interessa, in quanto dif¬ 



ficilmente si può ricordare il sogget¬ 
to di ogni fotogramma. 

Lo scopo di questa procedura è 
proprio quello di rendere più ordi¬ 
nato l’archivio c più veloce la ricer¬ 
ca, dando la possibilità di sapere che 
cosa si è fotografato su ciascuno dei 
fotogrammi. 

Come funziona la procedura 

Al Run del programma, che ab¬ 
biamo chiamato Gestfoto, appare 
un rettangolo con all’interno il no¬ 
me della procedura. 

Sotto vengono visualizzati uno alla 
volta i messaggi. 

I primi due sono per gli slot (drive e 
stampante), i due che seguono per¬ 
mettono di effettuare il cambio del 
disco programma con il disco dati o 
(archivio) che ovviamente la prima 
volta sarà vuoto. 

Effettuata questa operazione appa¬ 
re il menu generale (vedi figura 1). 


La prima volta che si deve preparare 
un disco dati bisogna obbligatoria¬ 
mente scegliere le opzioni nella se¬ 
quenza sottoindicata: 

5 - Creazione disco; 

2 - Gestione tabella (per inserire gli 
elementi della tabella); 

3 - Stampe (per avere un elenco degli 
elementi della tabella); 

1 - Gestione rullini. 

Per i successivi dischi basta passare 
prima dalla creazione disco per po- 


GESTIONE ARCHIVIO FOTO 

1- GESTIONE RULLINI 

2- -GESTIONE TAHELLA 

3- S T A M P E 

4- COPIA DISCO 

5- CREAZIONE DISCO 

6- F INE 


Figura 1. Il menu generale. 


LISTA RULLINO COMPLETO DEL 17/07/84 


NUMERO DATA TITOLO. TIPO... MARCA SENSIBILITÀ' 


1 01/01/82 **** CANCELLATO *»** B/N NEGATI AGFA 50 ASA 


FOTOGRAMMI 


1 

P.PIANO 

UOMO 

14 

27 

2 

RITRATTO DONNA 

15 

28 

3 

RITRATTO ANZIANO 

16 

29 

4 

RITRATTO ANIMALI 

17 

30 

5 

P.PIANO 

UOMO 

18 

31 

6 

P.PIANO 

UOMO 

19 

32 

7 

P.PI ANO 

DONNA 

20 

33 

8 

P.PIANO 

ANZIANI 

21 

34 

9 

P.PIANO 

ANIMALI 

22 

35 

10 

P.PIANO 

COSE 

23 

36 

1 1 



24 

37 

12 



25 

38 

13 



26 

39 


40 

a*********#»####*»**»*###**#*##****#**»#***»***»***»»##***#*****»*#*******###*# 

Figura 2. Un esempio di stampa. 
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ter accedere dopo a qualsiasi opzio¬ 
ne del menu generale. 

Creazione disco 

Permette la creazione del primo 
floppy e quelli successivi quando il 
primo è completo (cioè contiene999 
rullini). 

Il floppy viene inizializzato e poi 
predisposto per ricevere il file dei 
rullini (Fotorull) e il file tabelle (Fo¬ 
totabe). 

E un’operazione abbastanza lunga 
ma non di uso frequente. 

L’utilizzo è facile perché totalmente 
guidato. 

N.B. - Se non è il primo floppy, ese¬ 
guire sempre le operazioni di cam¬ 
bio disco quando vengono richieste 
in quanto prima di creare un disco 
nuovo il programma deve copiare in 
memoria il file tabelle dall’ultimo 
disco archivio aggiornato. 

Prima di battere C per continuare 
l’elaborazione, controllare sempre 
che il disco nel drive sia veramente 
quello che si desidera inizializzare 
per ricevere i nuovi rullini. 

Gestione tabella 

Gestisce il file tabelle (Fototabe). 
Sono 4 tabelle: 

• Tipo rullino, codici da 0 a 9 
esempio: 

0 diapositive 
I stampe 

• Marca rullino, codici da 0 a 9 
esempio: 

0 Kodak 
1 Agfa 

• Sensibilità rullino, codici da 0 a 9 
esempio: 

0 50 Asa 
1 4000 Asa 

• Tipo fotogramma, codici da I a 69 
esempio: 

1 ritratto bambino 
IO primo piano donna. 


Per ogni tabella è previsto l’inseri¬ 
mento, la variazione e la cancella¬ 
zione. 

Questo file deve essere creato o ag¬ 
giornato logicamente prima di inse¬ 
rire i rullini, poiché contiene la de¬ 
scrizione voluta'di tutti i codici ope¬ 
rativi da usare nella loro gestione. 
Il file viene creato in memoria e ag¬ 
giornato su floppy, solo quando vie¬ 
ne battuta l’opzione Fine del menu 
Gestione tabella. 

Dopo qualsiasi operazione di ge¬ 
stione tabella è buona norma fare 
una stampa del file. 

Questo si ottiene attraverso l’opzio¬ 
ne Stampe del menu generale. 

Gestione rullini 

È l’opzione più importante in 
quanto permette: l’inserimento, la 
variazione, la cancellazione e la ri¬ 
cerca dei rullini. 

Inserimento 

I campi da inserire vengono ri¬ 
chiesti uno alla volta. Prima i dati 
(chiamiamoli) anagrafici del rullino. 
Poi alI’OK 0 su questi dati, vengono 
richiesti i codici dei fotogrammi che 
sono 40 suddivisi in 4 vidcate da 10. 
Ad ogni codice fotogramma inserito 
viene visualizzata la descrizione del 
tipo di fotogramma scelto. Viene 
inoltre data la possibilità di saltare 
un fotogramma0odi terminare l’in¬ 
serimento 99, quando i fotogrammi 
sono meno di 40. 

Ad ogni videala esiste anche la pos¬ 
sibilità di correggere i dati errati C o 
di interrompere l’inserimento F. 

Variazione 

Digitando il numero del rullino 
vengono visualizzati tutti i dati in 
videate come l’inserimento, e ad 


ogni videata c’è la possibilità di va¬ 
riare o no i campi voluti, (battendo il 
numero del campo) meno logica¬ 
mente il numero del rullino. 

Per i fotogrammi battendo il nume¬ 
ro del fotogramma. 


Cancellazione 

Digitando il numero del rullino 
vengono visualizzati solo i dati ana¬ 
grafici e se confermati 0, nel campo 
Titolo Rullino viene scritto “*** 
Cancellato ***”. Il rullino non è fisi¬ 
camente cancellato e può essere ri- 
utilizzato attraverso l’opzione Va¬ 
riazione. 


Ricerca 

È l’opzione che permette la ricer¬ 
ca diretta per numero e una ricerca 
combinata di più campi. 


Ricerca per numero 

Vengono visualizzati i dati ana¬ 
grafici e se richiesto S anche i foto¬ 
grammi, sempre 10 per volta. Esiste 
la possibilità di stampare il rullino 
visualizzato P o di continuare la ri¬ 
cerca del rullino successivo F (poi¬ 
ché battendo F si torna alla richiesta 
del numero rullino, ma con il nume¬ 
ro successivo già visualizzato nel 
campo di Input). 

Altre ricerche 

È una ricerca combinata fra più 
campi, che sono: Data, Tipo foto¬ 
gramma, Tipo rullino. 

Alla richiesta della Data si può: 

• escluderla dalla ricerca compieta- 
mente (digitando Return); 

• escluderne una parte: 
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un Jocksoniono 
personal computer 



È in edicola ABC personal computer, il corso 
programmato per tutti i personal che ti inse¬ 
gna il Basic e a dialogare col computer in me¬ 
no di 6 mesi. 

ABC personal computer ti svelerà tutti i se¬ 
greti dei personal. Inoltre, se non hai ancora il 
computer, ABC personal computer ti aiuta a 
sceglierlo bene, perchè ogni settimana prova 
per te i personal più interessanti. 

ABC personal computer in soli 25 fascicoli set¬ 
timanali. 

ABC personal computer è un'opera esauriente. 


rapida e comprensibile a tutti, ideata e realiz¬ 
zata dagli specialisti del Gruppo Editoriale 
Jackson. 

Il primo numero è in edicola, corri a prender¬ 
lo: puoi vincere 30 fantastici MSX Philips! 

Ma non solo. 

Trovi in regalo il poster del Basic che ti con¬ 
sente di convertire i programmi di una mac¬ 
china su qualsiasi altra. 

Diventa un Jacksoniano 
con ABC personal com¬ 
puter. 


GRUPPO 

EDITORIALE JACKSON 


...E VINCI 
30 FANTASTICI 
MSX PHILIPS 


GRUPPO ETHOS 
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battere OOOOAA: per fare una ri¬ 
cerca solo dell’anno; 
battere OOMMAA: per fare una ri¬ 
cerca del mese e anno; 

• battere la data completa 
GGMMAA per avere una ricerca 
completa (cioè di tutti i rallini con la 
data voluta). 

Dopo la Data vengono richiesti nel¬ 
l’ordine gli altri campi di ricerca: 
Tipo fotogramma: battere il codice 
del tipo di fotogramma che si vuole 
cercare, oppure Ret per escludere il 
campo. 

Tipo rullino: battere il codice del 
tipo di rullino che si vuole cercare 
oppure Ret per escludere il campo. 
Per facilitare e abbreviare la ricerca, 
vengono a questo punto richiesti al¬ 
tri due campi: 

• da numero; 

• a numero. 

Vanno valorizzati nel caso si sia in 
grado di definire i limiti della ricerca 
attraverso il numero del rullino. (È 
possibile consultando la lista dei ral¬ 
lini per numero). 

N.B. - Alla fine della richiesta dati si 
ha sempre la possibilità di ricomin¬ 
ciare l’inserimento F o di conferma¬ 
re 0. 

Se si conferma vengono visualizzati 
i dati anagrafici di tutti i rallini che 
contengono i valori della ricerca. 
Dal numero (visualizzato) si può 
passare alla ricerca per numero, se si 
desidera vedere anche i codici e le 
descrizioni di tutti i fotogrammi. 


Stampe 

Le stampe possibili sono: 

• stampa delle tabelle dei codici ope¬ 
rativi; 

Per ogni tipo di tabella, il codice e la 
descrizione; 

• stampa di un rullino completo; 
Dati anagrafici, codice e descrizione 
di tutti i fotogrammi; 

• elenco di tutti i rallini per numero. 
Dati anagrafici e codici dei tipi di 
fotogrammi. 

N.B. - Righe che non superano le 80 
colonne. 


Copia disco 

Permette di fare una copia del 
floppy nel caso lo si ritenesse neces¬ 
sario. 

N.B. - Non fa altro che richiamare il 
programma Copya che l’utente Ap¬ 
ple ben conosce. 

Commento al listato 

10-86 - Assegnazione variabili di co¬ 
modo, routine generalizzate di In¬ 
put con controlli. 

197-295 - Altra routine di controllo 
per rafforzare quelli delle routine 
precedenti. 

345-460 - Dimensionamento matri¬ 
ci, assegnazione variabili nome file. 
Composizione primo quadro con vi¬ 
sualizzazione primi messaggi di con¬ 
figurazione e cambio disco. 

465-750 - Lettura file Fototabe. È il 
file tabelle che viene letto in memo¬ 
ria (sono 99 record di 20 posizioni, 
che è la descrizione dell’elemento in 
quanto il codice è dato dal numero 
fisico del record). Alla 640 c’è un 
salto alla routine gestione errori 
(istruzione 20000). 

1000-1280 - Composizione del menu 
generale. 

1330-3060 - Sviluppo dell’opzione 
del menu generale; Gestione tabelle. 
1355-1575 - Sviluppo menu gestione 
tabelle, test e assegnazione variabili 
per For lettura Fototabe. 

1580-1760 - Menu e test per routine 
aggiornamento tabelle. 

La routine aggiornamento tabelle è 
una sola per tutti i tipi tabella che 
sono quattro: tipo, marca, sensibili¬ 
tà e tipo di fotogramma del rullino. 
Si sviluppa: 

• da riga 1770 alla 2070 per l’inseri¬ 
mento; 

• da riga 2080 alla 2370 per la varia¬ 
zione; 

• da riga 2380 alla 2660 per la cancel¬ 
lazione. 

2680-2940 - Routine comune per la 
visualizzazione dei fotogrammi. 
2950-3060 - Scrittura File tabelle 
(Fototabe). Il File tabelle viene scrit¬ 
to quando viene scelta l’opzione 5 


(fine) del menu Gestione tabella. 
5000-10810 - Sviluppo dell’opzione 
del menu generale; Gestione rallini. 
5040-5050 - Esamina se è la prima 
volta nel qual caso viene letto il file 
Fototabe per averlo in memoria 
(Gosub 465). 

5120-5650 - Menu generale della Ge¬ 
stione rallini con Input e test delle 
opzioni. 

5670-5790 - Routine di intestazione 
quadro e azzeramento Input per 
ogni opzione. 

5800-8180 - Sviluppo dell’opzione 
del menu Gestione rallini, Ricerca. 
5800-5970 - Menu, test e assegnazio¬ 
ne variabili. 

6000-6400 - Sviluppo della sotto op¬ 
zione Ricerca per codice. 

6000-6060 - Assegnamento variabi¬ 
li, preparazione video. 

6070-6090 - Richiamo alle routine 
dell’opzione di variazione per la ri¬ 
chiesta del numero rallino (9520), 
della lettura del file rallini (Fotorull) 
e del display dati anagrafici (9750). 
6095-6155 - Riga di Input fondo vi¬ 
deo e test. 

6160-6390 - Suddivisione dei codici 
fotogramma che sono in un unico 
campo (F$) e display. 

6400 - Sviluppo della sotto opzione 
Altre ricerche. 

6400-6840 - Assegnamento variabi¬ 
li, preparazione video e Input dei 
dati di ricerca con richiamo alle rou¬ 
tine di controllo Input. 

6850-6975 - Test campi a blank, let¬ 
tura record zero per sapere quanti 
sono i rallini registrati, visualizza¬ 
zione campi di ricerca. Inizio lettura 
dei record rallini. 

6980-8060 - Test del record letto, 
display e suddivisione fotogrammi 
(F$). 

8070-8180 - Routine generale visua¬ 
lizzazione campi di ricerca. 
8200-8270 - Routine generale lettura 
file rallini (Fotorull). 

8280-9410 - Sviluppo dell’opzione 
del menu gestione rubini, Inseri¬ 
mento. 

8280-8930 - Assegnamento variabi¬ 
li, preparazione video ed inserimen¬ 
to dati anagrafici del rullino, con 
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lettura di controllo esistenza. 
8940-9340 - Richiesta Input dei foto¬ 
grammi, numero fotogramma e co¬ 
dice tipo. Visualizzazione della de¬ 
scrizione del fotogramma. 

9370-9410 - Routine generalizzata di 
assegnazione campo fotogrammi e 
scrittura. 

9450-10640 - Sviluppo dell’opzione 
del menu gestione rullini Variazio¬ 
ne. 

9450-10040 - Assegnazione variabi¬ 
li, preparazione video e richiesta In¬ 
put numero rullino, lettura di con¬ 
trollo esistenza, display dati anagra¬ 
fici. 

10050-10230 - Variazione dati ana¬ 
grafici. 

10240-10640 - Suddivisione, visua¬ 
lizzazione, variazione fotogrammi. 
10650-10810 - Sviluppo dell’opzione 
del menu gestione rullini Cancella¬ 
zione. Vengono usate le routine del¬ 
l’opzione variazione. 

10820-11070 - Routine di controllo 
data. 


11090-11180 - Routine generalizzata 
di scrittura record file Fotorull. 

12000-15290 - Sviluppo dell’opzione 
del menu generale Stampe. 
12000-12064 - Assegnazione varia¬ 
bili, Input e test del menu stampe. 
12095-12850 - Sviluppo opzione del 
menu stampe Stampa elenco rullini. 
12095-12328 - Assegnamento varia¬ 
bili, preparazione video, richiesta 
Input della data di stampa, del nu¬ 
mero inizio e fine del rullino per una 
stampa parziale. A blank se stampa 
completa. 

12330-12380 - Struttura pilota per 
stampa elenco parziale. 

12395-12410 - Struttura per stampa 
totale (cioè tutti i rullini). 
12495-12550 - Stampa intestazione. 
12595-12690 - Stampa del record. 
12795-12850 - Routine salto pagina. 
12895-13995 - Lettura Fotorull ge¬ 
neralizzata per le stampe. 
14000-14430 - Sviluppo opzione del 
.menu stampe Stampa tabella. 
15000-15290 - Routine stampa Rul¬ 


lino singolo. 

Viene richiamata dall’opzione del 
menu generale Ricerca nella sotto 
opzione Ricerca per codice quando 
viene visualizzato il rullino. 
18000-18350 - Sviluppo dell’opzione 
del menu generale Creazione disco. 
18000-18030 - Preparazione video, 
messaggi per cambio disco, test se 
primo disco. 

18035-18350 - Inizializzazione di- 
sco.scritturadel file tabelle(vuotose 
primo disco, se non viene riportato 
quello letto dall’ultimo disco dati), 
scrittura del file rullini vuoto. 
19000-19105 - Sviluppo dell’opzione 
del menu generale Copia disco. 
Messaggi e richieste per pilotare il 
cambio disco, poi richiama il pro¬ 
gramma di utility Copya. 
20000-20250 - È la routine di gestio¬ 
ne errori. Viene usata solo per le 
letture e le scritture su floppy. 

Da la possibilità tramite messaggi, 
di riprendere in caso di errori su 
disco (non tutti). ■ 


Listato 1. //programma per archiviare le vostre opere. 


PROOR. GESTFOTO 
198-4 


10 RFH 

11 REM 
1? REM 

14 REM 

15 REM 

PO SP« * ‘«SPI » SP* » SPI ♦ SPI « SPiiSP* • SPI « SP*lCR* - CURI 

(08) iLN* • CMR* <95> * POR I =* 1 TO 7»CR* » CR* » CRttLN* - l.N* ♦ LN* 

: NEXT «CR» * LEFT* <CR*.80)iLN* - LEFT» <LN*.80> 

2? 0* - CMR* <4)!0P« = O* ♦ "OPEN'iRD* - D* ♦ READ lURt • 0* * "URITE’IC 

Li * O* ♦ ‘CI.OSE-ICT* = D* * "CATAL0G'iV8* * 0* * -Pft£3'iV4« ■= D* ♦ ' 

PREO- 

24 REM ROUTINES STANDARD 
26 MC » 401 OOTO 350 

28 JX «- 1IJ1X * 0IJ2X - 21IJ3X - 74*J4X 5IJ5X - 7iJ6X - <N > 2>iN - N - 

3 • .16%sJ* - LEFT* (CI* * SP*.l)iY1 ■ l. * ?l IF N • 0 AND VAL (CI*) 

> O TMCN J* - LEFT* < STR* < VAL <C1*>> ♦ SP*.L> 

30 PRINT : VTAB Xs POKE 34.Y 11 PRIMI X*!~ LEFT* (CRi.YI - J 

%>l 

3? GEI R»iJ7X ASC <R*)l IT <J7X > 31 AND J7% < 127) OR J7X * 13 TMEN 5 
34 IF J7X • 3 TMEN EMO 

36 IT J7X • J1X TMEN JX • JX 1 • <JX > 1)1 OOTO 30 

38 IF J/X - J2X TMEN* JX - JX ♦ 1 ■ <JX < L>» GOTO 30 

42 IF F ) O TMEN F » F ■ (J7X - J3X) - 2 « (J7X = J4X)l GOTO 42 

44 IF J7X < > J5X OR <JX - 1 ANO J* - LEFT* (SPt.L)) TMEN 32 

4A ir JX - 1 OR L - 1 TMEN J* = R10HT* <J».L - 1) « ' *i OOTO 30 

40 IF MIO* <J*.JX.L - JX) « MIO* (SP*.JX.L - JX) THEN JX * JX - 1*J* = 
LEFT* (J*.JZ) • LEFT* <SP*.L JX)* OOTO 30 
50 J* - LEFT* <J*,JX - 1) ♦ MIO* <J*,JX ♦ 1.L - JX) ♦ ' “* GOTO 30 
52 IF J7X *= 13 TMEN 62 
54 IF L = 1 TMEN I* R * * GOTO 30 

56 IF JX 1 TMCN JX JX • 1*J* = R» ♦ RIGMT* <J*.L - t>* GOTO 30 

50 II JX - L THEN J* - LEFT* (J*.JX 1) ♦Rii GOTO 30 

60 JX JX ♦ 1*J* - LEFT* (J*.JX - 2) ♦ R« • RIGMT* <J*.l (JX - 1>)l GOTO 
30 

42 JO » O: FOR J8 = L TO 1 STEP - 1IJO - JO • 1 * < MIO* (Jt.JO.t) < > - 
">l NFXT i IF JO < M TMEN J* - 'LUNGHEZZA MINIMA! OOTO 74 
64 IF N - O AND J* LEFT* <Sr*.l> TMEN J* 'O' 


46 IF N - 0 AND VAL (J*) ■ 0 AND J* < > LEFT* CO' 

"ERRORC INPUT '* GOTO 74 
68 IF J6X » O TMEN 76 

70 N « N ♦ 3 » J6XU6X * Oi FOR J8 • I TO I l FOR J9 « 

J4X ♦ ( MIO* (J*.J8.1) - MIO* (C2«.J9.1)>I NEXT 
76 

72 J« = "RISPOSTA NON PREVISTA' 

74 D08UB 84i GOTO 28 

REM ALLINEAMENTO C. NUM. 

PRINT * VTAO X* MTAB Y: PRINT X*l' >-|J*»”<'l RETURN 
REM DISPLAY ERRORE 
REM 

PRINT « VTAB 23i MTAB li PRINT J*I 
PRINT SPC( 39)i RETURN 
REM 

REM CONTR.INPUT 
REM 

200 79 - O 
210 FOR I - 1 TO L 
215 IF I - 1 TMEN 280 


SP*.I. ) TMEN J» • 


TO IEN (C2*)*J6X - 
NEXT * IF J6X • L TMFN 


76 


197 

198 

199 


<RET> *»« OET Rii PRINT * VTAB 23* 


220 OOTO 24CI 

230 IF MID* <Z9*.I.D < "1- OR MIO* (Z9*.I.1> ) "9* TMCN 280 
235 OOTO 285 

240 IF MIO* (Z99.I.1) - - * TMEN 285 

240 IF MIO* (79*.1.1) < -O- OR MIO* (79*.1.1) > *9* TMEN 280 

250 GOTO 285 

280 79 » 1 

285 NEXT I 

290 Z9* - "*H - O 

295 RETURN 

345 REM ---------------- 

346 REM INIZIO 

347 REM 

349 REM ----------------- 

350 TA* - 'FOTOTABE'lU* - ’FOTORULL'lZ • O 
352 DIM T«<99).F*(40) 

354 TR* - "-' i TR• ■ IR* ♦ TR* * TRt - TR* ♦ TR* 

356 AS* ■ ..*AS* « AS* ♦ AS* * AG* • AS* 

360 REM - 

362 REM PRIMO OUADRO 
364 HOME i VTAB 5 

366 INVERSE i PRINT LEFT* <SP«.40) 

368 FOR I - 6 TO 161 VTAO II MTAB 11 PRINT ' *t VTAO 11 MTAB 4UI PRINT “ 

-i NEXT I 

370 VTAB 161 MTAB 11 PRINT LEFT* (SP*.40)l NORMAL 
372 VIAB 8i MTAB 5 

374 PRINT 'GESTIONE ARCHIVIO'! PRINT l PRINT i MTAB 11 
376 PRINT “F 0 T O O R A F I C O I VTAB 141 MTAB 5* PRINT '1.0 - 1984 I VTAB 
141 MTAB 361 PRINT 'CR' 

378 X • 10!Y » 1 

380 X» - DRIVE SLOT «"IL • UH * UN • 3IC1* • '6'iC2* - *01234567'! GOSUO 
28177* = J* 

382 X - 191Y • 1 

384 X* • "PRINTER SLOT»"iL • 1IM ■ UN - 3lC1* ■ "1"iC2* « -01234567"! GOCUU 
20!Z6* - J* 

400 TL* » ".L21"iTS* - '.S* ♦ Z7*iT0* » ".DI" 

405 SI* • O» » 'PR£- * Z8* 

410 U1* - '.L121"IU2* - '.S* ♦ Z7*:U3* * '.DI' 

415 ZI - Il REM OOSUB 6401 REM LETI FOTOTABE 
420 ZI - O 

455 J« • 'TOGLIERE OISCO PROGRAMMI '! GOSUO 86 

460 J« - 'INSERIRE DISCO ARCHIVIO (VUOTO SE. PRIMA V0LIA)*i 

GOSU8 86 
462 OOTO lOOO 

465 VTAB 221 HIAB 11 CALL - 958 

466 PRINT "ATTENOERE PREGO 
560 REM 

570 REM ————— — 

380 REM LETTURA FILE FOTOTABE 

590 REM IN MEMORIA 

600 REM SOLO IL CAMPO DESCR. 

610 REM IL CODICE E' DATO 
620 REM OALL’INDICE 
630 REM 

640 ONERN GOTO 20000 

650 PRINT OPtlTAtlTLtlTSVITO* 

660 FOR I - 1 TO 99 
670 PRINT RD**TA*I'.R-|I 
680 INPUT R*lT*<I> - R* 

690 NEXT 

700 PRINT CL*ITA* 
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Gestione 
archivio 
fotografico 
con l'Apple 


Seguito listato Archivio fotografico. 

710 PAINT 0* 

730 RFTUAN 
1000 REH 

1010 ACH ..••• 

1020 ACH HENU OCNCRAlE 

1030 ACH 

1040 MONE I INVERSE • PAINT LEE!• (SP».40> 

1030 rOA I - 2 TO 201 VTA0 II HTAB 11 PAINT 
•l NCXT I 

1060 VTAB 201 HTAB 11 PAINT LEFT» (SP».40M NO*HAI 
1070 VTA9 31 MTAB • 

1080 PAINT '0E8TIONE ARCHIVIO FOTO* 

1090 VTAB Si INVERSE I PAINT LEFT* (SP».40)l NORHAI 
1100 VTAS 7 

1110 HTAB 91 PAINT *1 - OE6TIONC RULLIMI *i PAINT 
1120 MTAB 111 PAINT *2 - 0E6TI0NE TAVELLA*I PAINT 
1130 HTAA 131 PAINT *3 - 8 T A H P E*i PAINT 

1140 HTAB 151 PAINT *4 COPIA OIOCO'l PAINT 

1130 HTAB 171 PAINT *3 CREAZIONE DISCO*l PAINT 

1160 MTAB 19* PAINI *6 F I N E *1 PAINT 

1170 X • 22IY - 1 
1160 X* - 'BATTERE OPZIONE 
2BIR16 - J» 

REM 

RIH TEST HEMÙ UE NI. A ALE 
REH 

THCN 3000 
TMEN 1333 
THCN 12000 
THCN 19000 
TMEN 18000 
THCN MONE 


I VTAB II MTAB 401 PAINI * 


•IL • 11H » 11N • 3lC 11 - 


’IC2R • *123436*1 OOSUO 


1190 
1200 
1210 
1220 
1230 
1240 
1230 
1260 
1270 
1280 
1320 
1330 
1340 
1350 
1333 
1336 
1357 
1360 
1370 


END 


*1 VTAB 


HTAB 401 PAINT 


1380 

1390 

1400 

1410 

1420 

1430 

1440 

1450 

1460 

1470 


-IC2R *12345*1 GOSUO 


70IHA - 791TS6 • 


IF Al» • *1* 

IF Al» » *2* 

IF RI» - *3* 

IF Al» • *4* 

IT RI» ■ '3* 

IF Al» - *6" 

OOTO 1170 
REH 

REM —---------------- - 

NEH HENU 0C8T.TABELLA 
REH 

IF Z » 0 TMEN 1337 
OOTO 1360 
GOSU8 .63tZ - 1 

HOME * INVERSE I PAINT ECFT» (SP».40) 

FOS I - 2 TO 201 VTAB II HTAB 11 PAINT 
*1 NEXT I 

VTAB 201 HTAB 11 PAINT LEFT» <SP».40)t NORHAl 
VTAB 31 HTAB 3 

PRINT -QESTIONC TABELLA* 

VTAB SI INVERSE l PAINT LEFT» <SP«.40)l NORHAl 
VTAB S 

HTAB 91 PRINT *1 - TIPO 01 RULLINO'! PRINT 
HTAB 91 PRINT 2 HARLA OH RULLINO’! PAINI 
HTAB 9* PRINT *3 - SENSIBILITÀ’ RUtLINO’i PAINT 
III AB 91 PAINI *4 TIPO DI FOTOGRAMMA* l PAINT 
HTAB 9* PAINT *S FINE* 

1400 X - 22*Y - 1 

1490 X» • ’BATTCAE OPZIONE 'IL - UH « UN - 3IC1» - 
20IN2» - J»*T - 0 
1300 REH 

1510 REM TEST MINO If.DdlA 
1320 XI -* FRE (0> 

1330 ir B2» - *1* THCN I» • *TAUCLLA TIPO RULLINO’INI 
*7*1 OOTO 1620 

1340 IF A2* ■ *2* TMEN I» - 'TABULA MARCA RIILLINO'IHI - 80IMA - B9iT5» » 
0*1 OOTO 162U 

1330 IF R2» - *3* TMEN I» • "TABELLA SENSIBILITÀ' 'IMI - 90IMA - 99iT3» • 
*V*| MOTO 1620 

1560 IF R2» • '4* TMIN I» • 'TABELLA FOTOGRAMMI * IMI • OIMA • 49IT3* * "I 
OOTO 1620 

1370 IF R2» • *5* TMEN 1000 
1373 OOTO 1480 
1300 REM 

1590 REM ------------------- 

1600 ACH ROUT.AOG. TABELLA 
1610 BEH 

1620 nosua i6io« doto 1730 
1630 HOME 
1640 PAINT I» 

1630 VTAB 31 INVERSE I PAINT LEFT» (RP».40>i NORHAL 
1660 VTAB 7 

1670 HTAB 91 PRINT 1 - INSERIMENTO*• PAINT 

1600 MTAB 91 PAINT *2 - VARIAZIONE'! PRINT 

1690 HTAB 91 PRINT *3 - CANCELLAZIONE'* PRINT 

1700 HTAB 9i PAINT *4 * T INE" 

1720 X • 22lY * 1 
1730 X» - 'BATTERE OPZIONE 
201A3» • J»IT - 0 

1733 IF A3» < '1* OR A3» > *4* THCN 1720 
1740 RETURN 
1750 A3 - VAL (A3») 

1760 ON A3 OOTO 1010.2120.2420.2990 
1770 ACH 

1700 REM - — — 

1790 REH INSERIMENTO 

1800 REH 

1010 VTAB 11 HTAB 301 INVERSE • PRINT 'INSERIMENTO 
l CALL - 938 
1020 TI» - **IT2» • 

1830 IF R2» - *4* THCN OOSUB 27101 OOTO 1090 
1840 VTAB 31 FOA I - HI TO MA 
1050 PAINT (I - HI)»* “ITOCI>• NEXT 
1B60 VTAB 161 HTAB 32* PRINT '(F-FINE)* 

1070 X • 161Y - 1 

1080 X» - ‘CODICE *IL • UH • 1IN - 4lC1» • T1»IC2» - *012343670 

9F*l OOSUB 28*TI» - J» 

1890 IF TI* - *F' THCN 1620 
1900 T6» - T3» ♦ T1»»T - VAL <T6»> 

1910 IF T»(T> - - * OR T • ( I » • LLFT» (SP9.20) THCN 1930 
1920 VTAB 23* HTAB 11 PAINT 'COOICC ESISTENTE INSEI.IMPOSSIBILE'I FOA I 
1 TO 30001 NEXT l VTAB 231 HTAB 11 CALL - 930 
IF A2» - *4' TMEN OOSUB 20701 OOTO 1890 


-IL - 11H - 11N - 3iC1 » - * * IC2* - *1234*1 008U0 


NORHAL I PRINT t PRINT 


1930 
1940 
1930 
1960 X 
1970 X» 


OOTO 1860 
VTAB 161 HTAB 321 PRINT 
101Y - 1 

DESCRIZIONE 


281T2» 

19110 X • 22IY • 
1990 X» * "O-OX 
20IR» 


J» 


IL - 20IH - OIN • IIC1» - T2»IC2» • C1*i OORU8 


C-CORRCZIONE 


IL - 1IH - 1IN - 4IC1» • *0*IC2» • *0C*l OOSUB 


2000 IF R» - ’C* TMEN 2060 
2010 IF A» < > * 0 * TMEN 1900 

2020 REM --VALORIZZ.INDICE 
2030 T»(T > - T 2 »l REM AS 8 .DESCR 
2040 VTAB 41 HTAB 11 CALL - 958 
2050 DOTO 1820 

2060 IF R 2 « - * 4 * THCN OOSUB 28701 OOTO 1090 
2070 OOTO 1860 
2080 REH 

2090 REM -——- 

2100 REH VAAIA 7 I 0 NE 
2110 ACM 

2120 VTAB 11 HTAB 311 INVERSE l PAINT 'VARIAZIONE*l NORHAL l PRINT I PAINT 
• CALL - 938 
2130 TI» - *'l T 2 » • ** 

2140 IF A 2 » • * 4 * THCN OOSUB 27101 OOTO 2190 

2150 VTAB 51 FOR I • HI TO HAI PAINT (I - HI)»* *IT»(I)I NEXT 

2160 VTAB 161 HTAB 321 PRINT '(F-FINE)* 

2170 X - 16 IY - 1 

2180 X» • 'CODICE * l IL - 1 iH • UN - 4 iC 1 » • T 19 IC 2 » *• *01234367 

89 F*l OOSUB 201 TI» - J» 

2190 IF TI* • T* TMEN 1620 
2200 T 6 » • T 3 » ♦ TISI! • VAL (T 6 »> 

2210 ir T»(T) < > ** TMEN 2213 

2213 OOTO 2220 

2215 IF T»( T) < » LEFT» (SP». 20 > THCN 2230 

2220 VTAB 231 HTAB 11 PRINT 'COOICC INESISTENTE VARIA/ IMPOSSIBILE*• FOA 
I • 1 TO 30001 NEXT I VTAB 23 * HTAB 11 CALI - 938 
2230 IF R 2 « • ' 4 ' THEN OOSUB 2070 * OOTO 2190 
2240 OOTO 2160 

2230 VTAB 16 * HTAB 32 l PAINT * 

2260 X - 101 Y • 1 

2270 X» - 'DESCRIZIONI 'IL - 20 lH - OIN • UC 1 » - T«(TUC 2 I • C 1 »i OO'JUO 

201 T 2 » - J» 

2780 X - 22 lY - 1 

2290 X» • * 0 - 0 K C-CORACZIONE **L - UH • UN - 4 .IC 1 B • * 0 'iC 2 » - *OC*l UOSUII 
28 IR» - J» 

2300 IF A» - *C' TMEN 2360 
2310 IF A» < > " 0 * THEN 2280 

2320 REH --VALORIZZ.INDICE 
2330 T*(T) - T 2 »l REH A 5 S.DESCR 
2340 VTAB 41 HTAB 11 CALL - 938 
2330 OOTO 2130 

2360 IF A 2 » - * 4 * THEN OOSUB 28701 BOTO 2190 
2370 GOTO 2130 
2380 REM 

2390 REH --- 

2400 REM CANCELLAZIONE 
2410 REH 

2420 VTAB 11 HTAB 201 INVERSE I PRINT 'CANCCLLAZIONE'i NORHAL • PAINT I PRINT 
l CALL - 938 
2430 TI* - ' * IT 2 » • 

2440 IF R 2 » - * 4 * THCN 00 SU 8 2710 * OOTO 2490 

2450 VTAB Si FOA I - NI TO HAI PAINT (I - HI»»" 'lT*(I>l NEXT 

2460 VTA 8 161 HTAB 321 PAINT '(F-FIME > * 

2470 X • 161 Y - 1 

2480 X» - 'COOICC 'IL - 1 iM • UN • 4 IC 1 » - T 1 »lC 2 » - *012343670 

9 F'I GOSUB 201 TI» - J» 

2490 IF TI» - 'f TMEN 1620 
2500 T 6 » - T 5 » • T 1 »II - VAL (T 6 *> 

2510 IT Tlll) < > '* THEN 2515 

2313 GOTO 2320 

2313 IT T*(T) < > LEFT» (SP». 20 > TMEN 2530 

2320 VTAS 23 i HTAB U PAINT 'CODICE INESISTENTE CANCCLL. 1 MP 0 SSIBILE*I FOA 
I - 1 TO 30001 NCXT i VTAB 23 » HTAB 11 CAI L - 930 
2530 IF R 2 * • * 4 * THCN OOSUB 20701 OOTO 2490 
2340 00(0 2460 

2530 VTAO 161 IITAB 32 l PRINT * 

2360 FOR I - LfN (T»(T>) TO 1 STEP 11 IF NIC» <T»(T).I. 1 ) < > * * THEN 

L • IH ■ 1 
2570 NEXT I 

2580 PAINT I 1 NVIR 8 C I PRINT MIO» (M(T).I.L)» NORHAL 
2590 X - 22 lY - 1 

2600 X» - ' CONFERMI CANCELLAZIONE ( S/N> 'IL • 1 IN • UN • 4 *C 1 » - *S*lC 2 » - 
’SN'I OOSUB 2 IIIR» - J« 

2610 IF R» - *N* THCN VTAB 17 l HTAB 11 CALL - 9501 GOTO 2460 
2620 IF A» < > * 0 ' THCN 2370 

2630 REH --AZZEAAH.VAAIA 0 ILE 

2640 T»(T) • " 

2650 VTAB 41 HTAB 11 CALL - 950 
2660 OOTO 2430 
2670 REM 

2600 REM - 

2690 REM 018 PLAV X FOTOOR 
2700 REM 

2710 VTAB Si HTAB U CALL - 958 
2720 T 7 » - STA» (T> 

2730 IF LEN (T 7 »> < 2 TMFN T 7 » - ' 0 ' ♦ T 7 » 

2740 T 7 » • RIGHI» ( STA» (T>.DlT 1 - VAL (T 7 »)iNI - T - TI 
2750 FOA I - MI TO MA 
2733 IF I • O ll€N 27 A 5 
2760 PAINT II* *IT*<l> 

2765 P • P ♦ 1 IP 1 - I 
2770 IF P < 10 THEN 2030 
2700 X - 22 *Y - 1 

2790 X» - ‘S-SUCCE 80 IVI O-OX r-r INE* IL • 1 IM - UN - 4 IC 1 » - *S'IC 2 » - * 

SOF'l GOSUB 20 IR» - J» 

2 B 00 I» A» • T* TMFN TI» • 'F*lP • OH - 701 OOTO 2830 

2810 IF A» - ' 8 * THEN P - 01 VTAB 5 l HTAB 11 CALL - 9501 OOTO 2830 

2820 I - 80 IP - 0 

2830 NEXT I 

2835 IF I - 71 THEN 2940 

2840 IF I > 70 THCN 2860 

2030 VTAB 231 HTAB 11 PRINT 'FINE TABELLA*I FOR I - 1 TO 2000 * NCXT l VTAR 
23 * HTAB 11 CALL - 9301 T - OHI» • *F*IP • Oi OOTO 2940 
2860 VTAS 151 MTA 0 11 CALL - 938 
2870 VTAB 161 HTAB 32 i PAINT ’(F-FINC)* 

2880 X • 161 Y • 1 

2890 X» - 'COOICC 'IL - 2 IH - 1 IN • 1 IC 1 » • Tl»r« 2 » - '012343670 

9 F't OOSUB 2 BIT 1 » • J» 

2900 IF LCri» (TI». 1 ) - 'F* TMEN TI» - *F*I OOTO 2940 
2903 IF VAL (T 1 »> - O TMFN 2880 

2906 IF AIOHT* CT 1 B. 1 ) C > * * TMEN 2909 

2907 OOTO 2920 

2909 IF RIONI» <T 1 »* 1 ) < * 0 ' OR RIONI» <T 1 ». 1 ) ) ' 9 * TMEN 2880 

2910 REH - - 

2920 REM CONTA.DIVERBO DA r 

2923 IF VAL <T 1 »> > PI THEN TI» - "I PRINT CHA» ( 7 >i GOTO 2800 
2930 IF TI» > ' 99 * THCN TI» - "I PAINT CHA» ( 7)1 OOTO 2680 
2940 RETURN I ACM 
2930 REH 
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VOI 

E IL VOSTRO 
COMMODORE 64 


Libri firmati JACKSON 


Baislnl - Baglionl 

FORTH 

Come e perché - dopo essersi affermato in 
campo scientifico e industriale - il FORTH è 
sempre più usato anche come linguaggio per 
Personal Computer. Strutturato su due piani, il 
volume si propone come "manuale di 
apprendimento" e come "manuale d’uso” del 
FORTH applicato al VIC 20 e al CBM 64. 

160 pagine. 

Codice 527 B L. 11.000 


Francesconi - Paterlini 

VOI E IL VOSTRO COMMODORE 64 

Un esauriente vademecum sulla 
programmazione in BASIC del Personal che va 
oggi per la maggiore. Facile, brillante, ricco di 
programmi testati questo è un volume prezioso 
anche per il più inesperto degli utilizzatori che, 
oggi, trova finalmente il modo più semplice per 
entrare nel mondo dei computer. 256 pagine. 
Codice 347 B L. 22.000 

Rita Bonelli 

COMMODORE 64 IL BASIC 

Un’accurata esposizione del linguaggio BASIC, 
accompagnata da numerosi esempi. 

Un BASIC visto dall’interno. Un libro di 
programmi per imparare a programmare. 

Per una maggior praticità e immediatezza d'uso, 
tutti i programmi esemplificativi riportati nel libro 
sono disponibili - a richiesta - su floppy disk. 
316 pagine. 

Codice 348 D L. 26.000 

La Biblioteca che fa testo 


DMÌOeiAU 

JACKSON 


Attenzione compilar* p*r Intero 
la cedola 

ritagliare (o fotocopiare) e spedire 
in .busta chiusa a: 

GRUPPO EDITORIALE JACKSON 
Divisione Libri 

Via Rosolimi, 12 - 20124 Milano 


CEDOLA DI COMMISSIONE LIBRARIA 
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Gestione 
archivio 
fotografico 
con l’Apple 


Seguilo listato Archivio fotografico. 

2960 R IH —--- 

2970 REM SCRITTURA TARI l I A 
2980 REM 

2990 ONERR OOTO 20000 

3000 VTAB 11 MTAB 201 FLASH l PRIMI *AOOIORNAMENTO'I NORHAI 

3010 PRINT 0P4ITA4ITL4IT84.T04 

3020 rOR I • 1 TO 99 

3030 PRINT WR4ITA4»',R*II 

3040 PRINT TACITI NEXT H PRINT C19ITA4 

3050 PRINT 0* 

1040 OOTO 1340 

5000 REM ................... 

5010 RTN OCSTIONE RIA LINI 

5030 RCH ... 

5040 IF / « 0 THEN 5050 

5045 OOTO 5120 

5050 OOBUB 44512 * « 

5120 IO* -OESTIOMC RULLIMI* 

5130 119 • • NTOTO CODTIPO DESCRIZIONI 

5140 149 • *OATA ERRATA 

5145 199 - 'GESTIONE RULIINI* 

5330 OOTO 5530 
5380 REH 

5390 RCH - 

5400 RIH INTESI.HENU 
5410 hi:h 

5420 HOMI • INVERSE l TRINI LEI ! 9 (SP9.40) 

5430 FOR I - 2 TO 201 VI Al) H HTA6 11 PRINT 'I VIAB II HIAB 401 PRIMI " 

I NEXT I 

5440 VTAO 201 MTAB 11 PRINT LCFT9 (SP9.40II NORHAL 
5450 VTAR 3l HTA9 5 
5440 PRINT 109 

5470 VTAO 51 INVERSE I PRINT LEFT9 CSP9.40)! NORHAL 
5480 RETURN I REM •••••••••••• 

5490 REH 

5500 REM ---. 

.5510 RCH HENU GEST.RULLIMI 

5520 REH - 

5530 GOSUB 5420 
5535 XI • TRE IO) 

5540 VTAR 8 

5550 MIAO 91 PRINT 1 RICERCA'! TRINI 

5540 MTAB 91 PRINT *2 INSERIMENTO*» PRINT 

5570 MIAO 91 PRINT *3 VARIAZIONE*! TRINI 

5500 MTAB ?l PRINT 4 CANCELLAZIONE"I PRIMI 

5590 MTAB 9l PRINT "5 - f INC* 

5600 X • 221V - 1 

5410 X9 - 'BATTERE OPZIONE * *L » UH - UN - 3tC19 • ' »C?4 - *12345'! OOSUO 

28IR49 - J91T * O 

5411 ir R49 ( -1- OR R49 > *5* THEN 5400 

5412 IF R49 - *5* THEN PRINT CL9IU9I OOTO 10UO 

5413 ONCRN GOTO 20000 

5615 PRINT 0P9IU9IU19IU29IU39 

5620 IF R49 • *1* THEN GOSUB 57401 GOTO 5850 

5430 IF R49 • *2* THEN 19 •» ' INSERIMENTO* I GOSUB 57001 OOSUO 57401 GOTO 8 

320 

5440 ir R49 - *3' THEN 19 • 'VARIAZIONE*! GOSUB 57001 OOBUt 57401 GOTO 94 
40 

5450 I» R49 - *4' THLM 19 • 'CANCELLAIIONE * I GOSUB 57001 OOSU8 57401 OOTO 
10490 

5470 REH - 

5480 REH INTESI.DELLE ROUT. 

5690 REH - 

5700 HOME 
5710 PRINT 199 

5720 VI AB 31 INVERSE I PRINT LEFT9 (SP9.40H NORHAL 
5/30 REIURN l REH 

5740 REH - 

5750 REM AZZERAH.INPUT 

5760 RCH - 

5770 T19 • ** 

5775 T29 • *' IT39 • **IT49 • **l?59 • "IT49 • **iF9 - ** IC39 • ** 

5780 TOP I • 1 TO 40119(1) • "I NEXT 1 
5790 RETURN l REH 
5800 REM 

5010 REM ... 

5820 REH RICERCA 

5830 REM ... 

5840 RCH 

5850 109 • *R I C E R C A * 

S860 139 • *9-SEGUE P-STAMPA F»FINE 
5870 OOSUO 5420 
5000 VI All 9 

5090 MTAM V. PRINT *1 TER NUMERO'I TRINI 
5900 MTAB 91 PRINT *2 - Al IRE *1 PRINT 

5910 MTAB 91 PRINT *3 F I N C * 

5920 X • 22IY - 1 

3930 X9 • BATTERE OPZIONE 'IL » UH - 11N • 3IC19 - "IC29 • *12345*1 OOSUB 
28IR39 - J9IT - O 
5940 IF R39 - *3' THEN 5120 

5950 IF RS9 - ‘1* THEN 4020 

5960 If R59 - *2' THEN 4440 

5970 GOTO 5920 
5980 RIH 

5990 REH ..—— 

4000 REH RIC.PER COOICC 
6010 RCH 
6015 U7 O 

6020 129 - 'RIA tIMO NON INSERITO* 

6022 139 • 'B-SEGUE P-STAMPA F-»INE * 

4030 119 • * NTOTO C00T1P0 DESCRIZIONI 
6040 19 • *RIC-PER NUMERO' 

6045 GOSUB 5775 

6050 OOSUB 57001 REH INTESTA/. 

6060 V f AB II MTAB 2/1 INVERSE I PRINT 191 NORHAl 
6070 OOSIIR 95201 RI.H USO DEI LA ROUT.VARIAI. 

4075 IT LETT4 (T19.1l • 'F* THEN T19 • "l OOTO 5800 
6000 FOR I - 1 TO 5*19(1) • ' *1 NEXT I 

6090 GOSUII 97501 GOSUB 9Q40IC29 ■ *SPF*I GOSUB 61061 GOTO 4150 

6095 RCH -- 

6096 RTH INPUT FONDO VIDEO 

6097 REH 

6100 VIAB 211 MTAB 11 PRINT TRI 

4105 C29 • 'SI * 

4106 f19 - *S* 

6110 VTAR 221 MTAB 11 CAIL - 848 
6120 X • ?» IT • 1 


4130 X9 - 139li. - 11H - 11N - 41 OOSUO 28iR9 - J9 

4140 RETURN i REN .. 

6150 IF RI - 'E* THEN 6380 

4155 1E R4 - *P* THEN 150001 RCH STAMPA 

4160 REH 

4170 REH - 

6100 RCH SUOO.FOTOOR 

4190 RCH 

6200 REH 

6210 0 - IIP • 0 

6220 VTAO 41 HTAO 311 CALL - 9581 PRINT 'RULL.N. *IB19 

6230 VTA8 51 MTAB 11 INVERSE l PRINT 1141 NORHAL 

4240 FOR X - 1 TO 40 

6250 F9(K) • MIO* (F9.B.2H0 - 0 « 2 

6260 X - 7 ♦ PIP - P • 1 

4270 VTAB XI MTAB 11 CALL - 950 

4280 PRINT * * • RIGHI9 (SP4 • STR4 (K).2) • * *|F4(X) 

4290 F - VAL (F4(K>) 

6300 VTAB XI HTAB 201 PRINT T4(F) 

4310 IF P ( 10 THEN l GOTO 6370 
6320 VTAB 211 HTAB 11 PRINT TR4 


4330 X • 221T - Il VTAB Xi HTAB Yl CALL 958 
6340 OOSUB 4110 

6350 IF R9 - “F* THEN X • 40» GOTO 4340 
4355 IF *4 - *P* THEN X - 43 
4360 P • 0 
6370 NEXT X 

4373 IF K - 46 THEN 130001 REH BTAHPA 
4380 U - VAL (B14) IU - U ♦ HT14 • BTR4 (U) 

6390 GOTO 6050 
6400 REH 

4410 RCH--- 

4420 RCH ALTRE RICERCHE 
6430 REH 

6440 19 - 'ALTRE RICERCHE* 

4442 134 • 'S-SEOUC F-FINE 

6450 119 - *NRU T H S OATARULL TITOLO RULLINO 

6460 129 - 'FINE RICERCA' 

4470 149 • '(REf)-EOCL *U79 - '00-C6CI .PARZ. 

6480 159 - 'F-FINE 

4490 184 • 'RICERCA IMPOSSIBILE' 

6493 X94 • NUMERO NON ESISTE' 

6500 U2 - 0IW3 - 0ITF4 - "ITP4 • " 

6310 OOSUB 57001 RCH —TESTATA 

6520 VTAB li HTAB 271 INVERSE I PRINT 19i NORHAL 

4330 GOSUB 90401 REH -TRATT.FONDO 

4340 OOSUB 68301 RLH -RIGA FONOO 

6330 X - SiV » 11X4 • 'DATA RULLINO 'IL ■ 6iM - UN - HC14 - "IC?* - " 

6360 OOSUB 281014 • J4 

6570 IF 014 • ' ' THEN 4650 

4580 IF LEFT4 (014.1) • *F* THEN. 51150 . 

4590 IF VAL (014) - 0 TMFN 4540 
6600 00SU8 108601 REH -CONTR.OATA 

6610 ir M ■ 1 THEN U • 0U9 - 1641 00SU8 861 GOTO 4550 

6420 IF LEET4 (019.4) - '0000' THEN 024 - RI0MT4 (0T4.2)tU2 - Il GOTO 6 
450 

6630 IF LEFT4 (019.2) - '00' THEN 024 - M1D4 (014.3.2) ♦ RIGIIT9 (014.2 
>!U2 - 2i OOTO 6630 

664(1 029 - RIGHI» (014.2) « HI09 (014.3.2) ♦ LEET4 (014.2) 

6630 179 - "l OOSUB 603O« REM RIOA FONDO 

6660 X - 71X4 - 'Tiro FOTOGR. 'IL • 2IM • UN • 1IC14 - "IC24 • 

6670 GOSUB 28ITF4 - J9 

6680 ir TF9 - * ' THEN 6720 

6690 IF LEFT9 (TF9.1) - *F' THEN 4540 

6700 IF VAL (Trt) - 0 OR VAL (TF41 > 69 THEN J9 - 'ERRORE INPUT*1 G05UG 
BAI 0010 66/0 

6702 IF RIGMT4 (TF9.1) ( > ' * THEN 6706 

6/04 OOTO 6/10 

6706 IT RIGHT9 (TF9.1) ( *0' OR RI0MT4 (Tr4,1) ) *9' THEN J4 ► 'ERRORE 
INPUT*i GOSUB 861 OOTO 6660 
6710 T - VAL (TF4) 

4712 IF T9(T) ( > " THEN 6718 

4714 VTAB 231 MTAB 11 J4 - 'TIPO TOTOOR. INESISTENTE 'I OOSUB B6ltr9 - 
I VTAB 231 HTAB 1» CALL - 938 
6716 GOTO 6660 

4716 OOSUB 100101 REH VIS.TIPO FIO* 

6720 X - 91X9 - 'TIPO RULLINO * IL • UH - UN - 4IC14 - **lC24 • *01234367 
09F 'l OOSUB 281TP4 » J4 
6730 IF TP4 - *F* TMEN 6540! REM I INPUT 
4733 IF TP4 • * ' TMEN 6752» REM TEST 

6740 T - 70 ♦ VAL (TP9) 

6742 IF T9(T) ( > ** THEN 4730 

6744 VTAB 23» HTAB HJ9 - 'TIPO RULLINO INESISTENTE * • OOSUO a6iTP4 - *’ 

I VTAB 23» HTAB 1» CALL * 95B 
6744 OOTO 6720 

6730 OOSUB 100101 RCH VIS.TIPO FTOR 

6732 OOSUB 12143» REH RICM.NUM 

6735 IF 014 • *F * THEN 014 - "I OOTO 6720 

4760 144 - *0-0K -IX - 22»Y • 11X4 - 144 ♦ I39IL - UH - UN - 4IC14 

- *0*IC24 • *0F*I OOSUB 2BIR4 - J4 
4770 IF 14 - *F' THEN 6440 

4780 OOTO 6090 . 

4790 BEH 

4800 NEH a.*•••••• 

4610 REN RIOA FONOO 
6820 RCH 

6030 VTAB 221 HTAB 11 CALL 9381 PRINT 1441174)154 

6040 RETURN i REM.». 

4030 REN 

6060 REH-—- 

4070 REN TEST ALTRE RIC. 

6000 RLH 

6890 IF 019 - ' * ANO TF# - • * ANO TP9 • - • THEN J9 • 1841 OOSUB 

BAI GOTO 6440 

A0V2 IF 014 - * * OR 024 - ' * THEN 6900 

6894 U1 - U3i OOSUO 0110» OOSUB 90201 OOTO 6930 
6900 U - Ot GOSUB 82201 REH LETI REC 0 
4910 U1 - VAL (B14) 

6920 OOSUB 81101 OOSUB 9020 
6923 U2 - 1 

69JO FOR U - U2 TO U1 

6940 GOSUB 57701 OOSUB 6220» REM AH E LCTT. 

4930 IF ■14 - ** TMEN 7100 

AV40 IT 82 « 1 THEN K29 - LEFT9 (T34.2M OOTO 70101 RCH AA 
6970 ir W2 • 2 THEN K24 • MIO» (T54.3.2) ♦ LCFT4 (TS4.2)i OOTO 7010» REM 
HHAA 

6973 X24 - T54I REH AANHGG 

6980 REM - 

4990 RCH TEST 
7000 REH 

7010 IF 014 - * ' THEN 7030 
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Gestione 
archivio 
fotografico 
con l’Apple 


Seguilo listalo Archivio fotografico. 

/0.T0 ir D2B < > K2* IMEN 7100 

zoao ir tfb • * thcn 7oao 
/040 oo'ius 80001 rem tesi roto 
zor.o ir ut < >1 ? Min /ioo 

7060 I» IP* • * ' IMEN 7080 
7070 ir TP* < > T2* THCN 7100 

7000 UOJSUB 78SUI 0010 71001 REM VISUAL 
7100 NEXT U 

7780 V f AB 22 « HI AB 11 CALL - B66U* * 12*1 GOSUO 86 

7770 P - Ol 0010 5850 

7800 00SU8 61101 REM FONOO VIOEO 

7810 REM 

7020 RFH - 

7030 REM 0I3PLAY RECORD 
7060 REM 

701(0 X - 6 ♦ P»r • P • Il VTA8 XI M f AH 1 

7860 15* • RIGHI• «15».2» • */* • MIO* (TSB.3.2) ♦ “/" ♦ LEf T» <15*.2) 
7870 VTA8 X> MIA8 11 INVERSE I CRINI RIGHI• <6T* • Bit.3)1 KOBMAL 
7880 VTAB X» MTA» 3l CRINI T2*l* *|T3*|- *»T4*I 'IT3*I* *|TA« 

7870 IT P < 14 THCN G0SU8 57401 0010 7950 
7900 OOSUB 6103 

7910 ir K* - T* THE H U - UH 0010 7940 

7920 VTAB 6* IITA8 11 CALL - 930 

7930 009UB 9040 

7940 P - O 

7950 RETURN l RI M 

7960 RIM 

7970 REM - 

7980 REM SUDOIV F* 

7990 REM 

8000 0 - 1IU1 • O 

8010 r00 X - 1 IO 40 

8020 F*<X> > MIO* (r*. 0 . 2)18 -8*2 

8o:io ir rton < > ir* r hen «050 

8040 K • 40 IVI - 1 

8030 NEXT X 

8060 RETURN l REM •■•■•■•••••••• 

8070 REM 

8000 REM--- 

8090 REM VIS.CAMPI 01 RIC 
8100 REM 

8110 VTAB 4x MTAO 11 CALL - 938 
8120 VfAB 31 HIAB 11 PRINT DI* 

oi3o ir ir* - - na.N ei*so 

8140 r • VAL <TF*)l VTAB 41 HTA8 11 PRINT 1*0 ) 

8150 IF TP* - * * THCN 8180 

8160 I • 70 ♦ VAL (IP*)l VTAB 41 MIAO 21« PRINT T*<I) 

8180 RETURN l REM 
8190 REM 

8200 REM - 

8210 REM -LETI FOTORULL 

8220 ONERR GOTO 20000 

8230 PRINT R0*IU*I*.R*IU 

8240 INPUT B1*.T2f.T3*.T4«.TS*.T6*.F* 

8260 PRINT O* 

8270 RETURN l REM 
8280 REM 

8290 REM mmmmmmmrnmmmmmmmmmmmmm 
8300 REM INSERIMENTO 

8310 REM 

8320 VTAB 11 HTAB 30I INVERSE I PRINT 1*1 NORMAI 
8330 II* - * NfOTO CODIIPO DESCRIZIONE 
8340 VTAB 41 HTAB 11 CALL - 9301 OOSUB 3740 
8350 VTAB 51 MTAO 32l PRINT -<r-riNE>* 

8360 VTAB 21I HTAB 11 PRINT IR* 

8370 X • 3*V » 1 

8380 X* - 'NUMERO RULLINO'IL - 3lN • UN - UC1* • TIBtCTB - *1 OOSUB .’«! 

TI* - JtlLI* • II* 

0390 IF T1B < > ’F ' THCN 8420 

8400 0010 3330 

8410 REM CONTR.DIVERSO DA F 

8420 Z9* - T1*i OOSUB 200 

8423 IF 29-1 THEN J* - ‘ERRORI INPUT*! OOSUB 86! GOTO 8370 
8423 U - VAL ITI*) 

8435 REM -—-—- 

8436 REM LETI FOTORUtl CONTR 

8437 REM 

8460 ONERR GOTO 20000 
8463 PRINT RD*IU*I'.R'IU 
8470 INPUT LI* 

8490 PRINT 0» 

8300 ir LI* • ** THIN 8530 

8310 VTAB 231 HTAB llj* » -RULLINO 01A INSERITO *• GOSUB BAI V»A8 23t ItfAR 
Il CALL - 958 
8320 OOTO 8370 

8530 TI* ■ RIOHT* <* * ♦ STR* <U).3>n REM ASO.SPAZI A SIN. 

8340 VTAII 51 HTAB 311 PRINT LEI T* '0P*.9> 

8550 X - 0 

8560 X* 4 'COO.TITO *IL • HM • 1IN - 3lC1* • T2»lC2* - '0123454/09 i 

OOSUB 281T2* - J* 

8570 I • 70 ♦ VAL <T2*M REM INDICE PER TABELLA 
8380 IF TSIT) < ) 1HEN 8610 

8590 VTAB 231 HTAB 1IJ* - "TIPO RULL.INLS1S1CNIL *1 OOSUB DAI VTAO 23* HTAB 
Il CALL - 95U 
8600 DOTO OSSO 

8610 FOR I - LEN « T • « T > > TO 1 SICP - Il IT MIO* < T • < f » . 1. 1 » ( > * UHM 
L - IH - 1 
8620 NEXT I 

8630 VTAB 81 HTAB 20» CALL 8681 INVERSE • PRINT HZO* <T9CT).1.L)I NO*MAI 
8640 X • 10 

8630 X* • 'COO.MARCA 'IL • UH ■ UN ■ 3IC1* • T3«IC2« - 0123456789 ' l 

OOSUB 28IT3* - J* 

8660 1 - 00 ♦ VAL (T3*)l REM INDICE PER RIC.TABELLA 
8670 IF T*IT) < > '- THCN 8700 

8600 VTAB 231 HTAB llj* • 'MARCA RULL.INESISTENTE *1 OOSUB BAI VTAD 23i MIAO 
Il CALL - 93B 
8690 OOTO 6640 

8700 rOR I • LEM <T*(T)> TO 1 8TCP - Il ir MIO* <T*(T).I.I) < > ' * TIICN 
L • IH - 1 
8710 NEXT I 

0720 VTAB 101 HTAB 20» CALE - 8681 INVERSE • PRINT MID* <T*<1>.1.L>l NORMAI 
8730 X • 12 

8740 XB - -COO.SENSIBIL. *IL - 1IM • 11N - 3iC1* • T4*iC2* - *0123456789'l 
OOSUB 28IT4* - J* 

8750 T • 90 ♦ VAL <T4*M REM INOICE PER RIC.MOLILA 


U/ 60 ir MITI ( > -- THCN 8790 

0770 VTAB 231 HTAB IU* - 'SENSIO.RULL .INESISTENTE i COSUO H6I VTAO 231 
HTAB 11 CALL - 958 
8780 GOTO 8730 

R/90 FOR I • LEN OBITI) TO 1 STCP - Il IF M1DB OBITI.1.1) I > - * TMLN 
L « IH • 1 
UBOO NEXT I 

0810 VTAB 121 HTAB 201 CALL - B68l 1NVLRSC l PRINI MIOB OBITI. 1.LH NORMAI 


8 H 20 X » 14 

11830 XI « 'DATA * IL • 6 IM • UN • UC 1 B • CSBIC 2 B * "I UOSUO 20 i 

T 3 B • JBIC 5 B « T 5 B 
8840 IF VAI OSB) - O IHIN 0020 
0850 DI* - T 5 *I GOSUB 100611 

0 B 60 IF U • 1 THEN U • OlJB - I 6 BI GOSUB B 6 f OOTO BB 20 
0870 T 5 B • RIGHI* 03*. 21 ♦ MIO* OS*. 3 . 2 ) ♦ LCFI* 05 *. 2 ) 

HBKO X • 16 

0090 X* - "IITOLO RULL. 'IL - 20 «M • UN • UC 1 B • TAUC 2 * - **l OOf.UD 28 
06 * - J» 

8900 X • 22 IY > 1 

0910 X* > O OX SCORREZIONE ' »L • UH • UN • 4 IC 1 * • 'O'IC?* • OC' » GOSUB 
28 IR* • J* 

0920 ir R* • -C* IMEN 8540 
8730 ir R* I > * 0 - IMEN 8700 

U 940 «LH -- 

0930 REM RICHIESTA IOTOGM 
0960 REM 

119/0 VI AD 41 HIAU 301 CALL 9381 PRINT 'RULL. N.'OI* 

11780 GOSUB 70201 GOIO 91011 

0990 REM - 

7000 REM 2 RIGA E INT.FOTOGR 
9010 REM 

7 020 VTAB 51 MIAB 1 

7030 INVERSI. I PRINT 11*1 NORMAL 

9040 VTAO 211 HTAB 11 CALL - 958 » PRIMI TR* 

9050 VTAB 22 l HTAB 1 

V 060 If R 4 I I > ' 2 ' IMEN VOTO 

9070 II R* - -C THTN PRINT O-VUOIO 9V«F INE RT1“CONFERMA*l OOTO 90 

90 

9080 PRINT * 0 «VU 0 T 0 tV-EINf 

7070 RETUltN l REM 

9100 rOR X • 1 TC 40 

7110 X * 7 • PlY - IIP • P • 1 

V 120 X* ' * * RIGHI* <SP* • STR* IXI. 2 ) 4 * 

7130 L 2 IN • OIN - Otri* • r*IK)tC 2 * ■ *' I GOSUB 28 lF*IK) « .)« 

9 I 40 ir VAL ir*IXI) - O THCN VTAB Xt IITA 8 20 : CALI 0681 GOTO 9210 
9142 ir RIGHI* IFBIKI.il I > * ' THTN 7146 
9144 GOTO 9150 

9146 ir RIOHT* (F«IK). 1 ) I * 0 ' OR RIOHT* IF»(K). 1 ) ) * 9 ' IMEN J* » 'ERR 
ORE INPUT'l GOSUB BAI OOTO 9130 

9150 If F*IX) * ' 99 ' THEN VTAB P ♦ 61 IITAfl 201 CAI L 958 * VTAB 21 « HTAB 
1 : PRIMI 1 R*i GOTO 9220 
9153 ir VAL IF*IK)) > 69 THEN 9180 
9160 F • VAI ir*IK)l 
7170 1 E 1 *<F ) I > " THEN 9200 

9180 VTAB 231 MIAO llj* - 'TIPO TOTOGR. INESISTENTE 'I GOSUB 86 >r*(K) - 
VTAD 231 1 ITA 8 11 CALL - 930 
VIVO GOTO 9130 

7200 VTAO XI MTAO 201 PRIMI TBID 

9210 ir P I 10 THEN i OOTO V 300 

7220 X * 221 Y • Il VTAO XI HTAB Yl CALL - 958 

7230 X* ’ 0 « 0 K C-CORREZIONE 'IL • UH - UN - 4 IC 1 * * 'O'tC?* • 'OC'» 

GOSUB 28 :R * - J* 

9240 IF R* • *C' THCN IX • K - P ♦ IIP > 0 * GOSUO 90401 GOTO 9110 

9250 ir RI I > * 0 ' THEN 9220 

9260 If r*IXI - - 99 ' TMLN rOR I ‘ 1 TO 40 ir*t!) • * *1 NEXT HK - 40 i DOTO 

9290 

9270 IF X • 40 THEN 9290 

9280 VTAB Al HTAB 11 CALL 9581 OOSUB 9040 
9290 P » 0 
9300 NEXT X 
V 310 OOSUB 9380 

9320 U - Ol OOSUB 81901 RCM CONTROLLO RECORO O 

9330 IF VAL 01*1 > VAL (B 1 *> THEN OOSUB 111201 0010 8340 

9340 OOTO 8340 

9370 REM —--- 

9371 REM ASS.r* 

9372 REM 

9380 FOR I • 1 TO X - 1 lF* ■ T* • FBI I) 

9390 NEXT I 

9400 GOSUB 111201 REM CCRITT. 

9410 RETURN l REM ••••••••■•••■«• 

9449 REM 

9450 REM 

9451 REM VARIAZIONE 

9452 REM mmmmmmmrnmmmmmmmmmmmmm 
9433 REM 

9460 I 2 B • 'RULLINO NON INSERITO' 

9470 I 1 B » * NTOTO COOTIPO DESCRIZIONE 

9400 I 3 B ’NFOTO-VAR O-OX F-FINC 

9490 VTAB II HTAB 3 U ! NOE NOE l PRINT 1*1 NORMAI 

9300 OOSUB 5740 

9310 GOSUB 9520 

9512 If LE» TB CT 1 B. 1 ) • *F' THCN 5330 
9314 GOTO 9710 

9520 VTAB 41 HTAB U CALL - 938 
9330 VTAB 51 HTAB 321 PRINT '<F-FINE> * 

9340 X - 5 IY • 1 

9550 X* • -NUMERO RULLINO'IL • UN • 1 IN • UC 1 * - T 1 *IC?« • * 1 OOSUB 20 * 

T 1 B • J*IL 1 B - T 1 I 
9560 IF T 1 B < ) ~F 'IHIN 9582 

9570 GOTO 9700 

9500 RFH -- CONTR. 0 ! VERSO OA F 
95 B? Z 9 B • MSI OOSUB 200 

9584 IF Z 9 • 1 THEN JB • 'C 6 R 0 RE INPUT** OOSUB DAI GOTO 9540 
7390 II - VAL IT 1 B) 

VAOS RIM - - - 

9606 REM LETI FOTORULL CONTR 

9607 REM 

9630 ONERR OOTO 20000 

9635 PRINT ROUUtl-.R'IU 

7640 INPUT B 1 B.I 2 B.T 3 B.I 4 B.T 3 B.T 6 B.)• 

7660 PRIMI 0 * 

9670 IF B 1 * < > '* THEN 9700 

9680 VTAB 731 MTAO 1 IJ* | 2 Bl GOSUO 061 VTAD 231 HIAB II CALI 738 
9690 OOTO 9340 

9700 RETURN l RCM .. 

9710 EOR I » I IO SiIB(t) • STRB II) • * » NEXT II GOSUB 97501 GOSUO 90 

401 OOTO 1010 O 

9720 RCM ---- 
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9730 REM DISPLAY RULL. 

97-40 REM 

V750 V1A0 SI HTAO 311 PRINT LEU* <SP*.9> 

9/60 T • 70 ♦ VAL <T2*>i REM INOICE PER F0T0TABL 

9770 X » 0 

9700 VTA8 X« HTAB 1 

9790 PRINT I*<1> ♦ C00.TIPO « *IT2* 

9000 OOSUB 100101 REM SUB VIS TIPO 
9010 X - 10 

9020 T - 80 ♦ VAL <T3t)i REM INO.PER F010TABC 
9830 VTAB XI HTAB 1 

9840 PRINT I*<2) ♦ 'COD.MARCA I '»T3* 

98S0 OOSUB 10010 

9860 X * 12 

9070 T - 90 * VAL <T4*>l REM IN OICE PER F0T0TA0E 

9800 VTAB XI HTAB 1 

9890 PRINT I*<3) ♦ 'COD.SFNSIB.• 'ITA* 

9900 GOSUO 10010 

9910 T5* - R inni * CTS*.2> • MIO* <T5»,3.2> • LCrTt <15*.?> 

9920 VTAB 141 HTAO 1 

9930 PRINT I•(4) ♦ 'DATA l "lT5* 

9940 VTAB 141 MTA8 1 

9930 PRINT I*(3> ♦ 'TITOLO l *lT6t 

9760 RETURN l REM 

9970 REM 

9980 REM .—.. 

9990 REM SUB VI3 TIPO 

10000 REM __ 

10010 FOR I - LEN ITtITI) TO 1 STEP - Il ir MIO* <T*(T>.I.1> < > ’ THEN 

L ■ 111 *1 

10013 FOR I » LEN <Tt(T>> TO 1 STEP - U IF MIO* (TtITI.I.I) < > " THEN 

L - IH ■ 1 
10020 NEXT 1 

10030 VTAB XI HTAB 201 CALL - 8681 INVERSE l PRINT MIO* (THTI.I.LIi NORMAL 

10040 RETURN i REM .. 

10030 REM 

IU060 REM - 

10040 REM VAR.INPUT.OPZIONE 
10000 REM 

10090 oosue 9040i ooro 10110 

10100 X - 22lr - I .. 

10110 X* ■ ”N.CAMPO-VAR O-OK T-riNI 'IL - UN - UN - AlCIt - IC 

2* • *1234501"! G0SU8 20IR* - J* 

10120 IT R* - 'F* THEN 10530 
10130 IT R» * '0' THEN 10280 

10140 IT R* » 1' THEN X - OiY • 13IX» - "IL ■ 1IM - UN - 3IC1* - l2*«C 

2* - '0123456789*1 OOSUB 20IT2* • J»iT • 70 ♦ VAL <T2»>i OOSUB 10010 

: GOTO 10100 

10150 IT R* - *2* THEN X - 10IY » 13lXt - "IL • UH - 1»N * 3IL1* « T3H 
C2* - '0123456789-1 OOSUB 28tT3* - JtlT • 80 • VAL <T3*>i OOSUB 1001 
01 GOTO 10100 

10160 ir R« • '3' THEN X* - "IX - 12lY - 15iL * UH • UN • 3iC1* T4*i 
C2* - '0123456/09'I GOSUB 20«T4* » J*iT • 90 » VAL <T4*)i OOSUB 1001 
01 GOTO 10100 

10170 ir Rt - '4* THEN 10200 

101HIJ II Rt - '5* TIIFN X - IAiY - 15«X» * "IL - 20IM ^ UN - MCI» • T6* 

I C2t - "« GOSIJB 2BHA» - J*i GOTO 10100 
10190 DOTO 10100 

10200 X 141Y * 15IX* - "IL - 6iM - UN - 1lC1» ■ I5*iC2* » "l OOSUtJ 28 
IT5* » J* 

10210 01* • T5*I OOSUB 10860 

10220 IF W •= 1 THrN U - OlJI - 16*1 GOSUB 861 OOTO 10200 
10230 OOTO IO ino 
10240 REM 

10250 REM --T- 

10260 REM SIJODIV.FOTOGRAMMI 

102/0 REM 

10200 0 - HP - O 

10290 VTAB 41 HTAB 311 CALI 9501 PRINT 'RULL.N. 'IBI* 

10300 VTAB Si HTAO H INVERSE i PRINT liti NORMAL 

10310 rOR K « 1 TO 40 

10320 F*<K> - MIO* (Ft.0.2)10 - 0 > 2 

10330 X - 7 • rip • P ♦ 1 

10340 VTAB XI HTAB II CALL - 958 

10350 PRINT ' « RIOHT* ISP* ♦ STR* <K>.2> ♦ ' *ir*IK> 

10360 F - VAL <F*IK)> 

10370 VTAB XI HTAB 201 PRINT T*(F> 

10380 IF P < 10 THEN : GOTO 10530 

10390 OOSUB 106101 REM F.VIOEO 

10400 IF R* - 'F ' THEN K * 40i GOTO 10520 

10410 ir R* - '0 ' THEN 10520 

10420 ir VAL IR *) < IH - 9) OR VAL IR*) > K THEN PRINT CHR* <7)1 VTAB 

23i HTAO li INPUT -RISPOSTA NON PREVISTA <RET> *»R3*i OOTO 10390 
10430 K1 «= K 

10440 X - 10 <K - VAL <R*>> ♦ 6iY • 10 
10450 X - VAL <R*> 

10460 X* = * " i L • 2iM - OIN - 0IC1.» - F*<K)iC2* - "l OOSUB 28lF*<K> - J* 

10470 TF F*(K ) - *0 * THEN VTAB Xi HTAB 20*. CALL - 8681 GOTO 10480 
10472 IF RIGHI» (F*(K>.1> < > ' * THEN 10476 
104/4 GOTO 10400 

10476 IF RIGHI* <F*<X>.1) < *0' OR RIOHT* (F»<K).1> > *9* THEN J» - *ER 
RORE INPUT'i OOSUB 861 GOTO 10460 
10480 F - VAL <F*(K>> 

10490 VTAB XI HTAB 201 PRINT T*<F> 

10500 K - K1i GOSUB 106201 GOTO 10400 
10510 VTAB 61 HTAB 11 CALL - 9501 GOSUB 9040 
10520 P - 0 
10530 NEXT K 

10540 Q - OlF» ■ "i REM AZZ TTGR 
10550 TI* - B1»i REM ASS.N.RULL 

10560 T5* - RIGHI* <T5*.2> ♦ MIO* <T5*.3.2> ♦ LETI* <15*.2) 

10570 GOSUB 93801 GOTO 95001 REM ASS.VALORI IN F* 

10500 REM - 

10590 REM F.VIOEO PER FTGR 
10600 REM 

10610 VTAB 211 HTAB 11 PRINT TRt 

10620 X - 22lY * li VTAB Xl HTAB Yl CALL - 958 

10630 X» ■ 13*IL - 2IM - UN « 1*C1# • "IC2* - "« GOSUB 2BiR* « J* 

10640 RETURN i REM.. 

10650 REM 

10660 REM — 

10670 REM CANCELLAZIONE 

10680 REM ............. 

10690 12* - "RULLINO NON INSERITO" 

10700 13* » "O-OK(CIOÈ'CANCELLA) T-FINE 


10710 VTAH 11 HTAB 28l INVERSE I PRINT 1*1 NORMAl 
10720 GOSUB 9520 

10725 IT LEFT* <T1*.1> - "F" THEN 5530 

10730 FOR I • 1 TO 5H*<I> " *» NEXT 1 

10740 GOSUB 9750 

10750 GOSUB 90401 REM F.VIOEO 

10760 VTAB 221 HTAB 11 CALL - 06G 

10770 X = 221Y - 1 

10780 X* - 13* IL • 11M - UN - 4lC1* - "0"tC2* - 'Or'l GOSUO 2ClR* - .1* 
10790 IF R* • "F* THEN 5530 

10800 TI* - B1 * IT6* ■ CANCELLATO «•••' 

10805 T5* - RIOHT* (T5».2> ♦ MIO» <T5*.3.2) * LEFT» <T5».2> 

10810 GOSUB 93001 GOTO 10720 
10020 RCM 

10830 REM - 

10840 REM CONTROLLO DATA 
10850 REM 

10860 FOR I • 1 TO 6i09* « MIO* (01*.1.1> 

108/0 IF 09* * " " THEN I * 8 
10880 NEXT I 

10890 IF I • 9 THEN 11060 
10900 A - VAL < LEFT* <D1».2>>IAI 
(01*•2)> 

10910 ir R4* 


VAL < MIO* (01*.3.2) HA/ ■- VAI < RIGHI* 


10920 

10930 

10940 

10950 

10960 

10970 


2' OR R4* - '3' TIICN 10940 
IF R4» - *1' ANO A - 0 AND Al - O IIIEN 11070 

ir R4* • '1" AND A - 0 THEN 11020 

IF A2 < 0 OR A2 > 99 THEN 11060 

IF Al < 1 OR Al > 12 TIICN 11060 


IF R4* - 
IF A < 1 
11060 

10980 IF A < 1 
10990 IF Al < 
11000 B - A2IB1 
11010 IF B2 


"1- ANO A - 0 THEN 11070 
OR A > 30 ANO (Al - 4 OR Al • 6 OR Al * 9 OR Al • 11) TIICN 


A > 31 THEN 11060 
THEN 11070 

/ 410/ • INI (81> ■ 4 
> B THEN 11040 
IF A > 29 THEN 11060 
GOTO 11070 

A > 20 THEN 11060 
GOTO 11070 

11060 U - Il REM - SUITCH 

11070 RETURN i REM 
REM 
REM 

REM SCRITTURA RECORD 
REM 

ONERR GOTO 20000 
PRINT UR*TU*I".R* TU” 

PRINT T1•I PRINT T2»l PRINT T3*i PRINT T4»i 


11020 

11030 

11040 

11050 


11080 

11090 

11100 

11110 

11120 

11125 

11150 


PRINT T5*I PRINT T6*i PRINT 


F* 


11170 

11180 

11230 

11995 

11996 

11997 


12025 

12030 

12035 

12040 

12045 


STAMPE' 


PRINT 0* 

RETURN I REM 
REM 

REM ----------------- 

REM STAMPE 
REM 

12000 IO* ■ "0 E S T I 0 N E 

12002 IF Z - 0 THEN 12004 

12003 OOTO 12005 

12004 GOSUB 4651Z - 1 

12005 16* - 'DATA ERRATA* 

12006 19* - 'GESTIONE STAMPE' 

12007 R - 72 

12020 GOSUB 54201 REM INTEST INIZ 
VTAB 9 

HTAB 91 PRINT '1 - STAMPA ELENCO RULLINI'i PRINT 
HTAB 91 PRINT '2 - STAMPA ELENCO TABELLA"I PRINT 
HTAB 91 PRINT *3 - F I N E' 

- 22*Y - 1 

12050 X* - 'BATTERE OPZIONE '*L - 1»M 
28:R6* - J* 

12052 IF R6* < *1' OR R6« > "3" THEN 12045 

IF R6* « *3' THEN PRINT CL*)U*l OOTO 1000 
ONERR GOTO 20000 
PRINT 0P*IU*IU1*IU2»IU3* 

IF R6» - '2' THEN 14000 
IF R4» - '1' THEN OOSUB 12100 


3IC1* - "IC2* • '123* 


12055 

12056 

12057 

12058 
12060 
12062 
12064 

12095 

12096 

12097 
12100 I* 
12102 H2* 


' OR G2* 


IF 01* 

GOTO 12330 

REM- 

REM STAMPA RULLIMI 
REM 

STAMPA RULLIMI- 
E N C « 


" THEN 12400 


U L 


A L 


T 0 L 0. T I P 0... MARC 


PRINT Iti NORMAL 


UN » HC1* « 


IC2* 


12103 H3* « "NUMERO DATA T 
A SENSIBILITÀ* 

12106 X9* - ‘NUMERO NON ESISTE* 

12110 GOSUB 57001 REM TESTATA 
12120 VTAB 11 HTAB 27i INVERSE 

12123 OOSUB 90401 REM TRATTEGGIO 

12124 14* - *F =FINE *iI7* - **l GOSUB 6800 

12125 X ■= 71X* • 'DATA ELABORAZIONE 'IL - 6iM 
1 GOSUB 28IDI* - J» 

IF 01* - " ’ THEN 12125 

IF LEFT* (01*.1> - *F" THEN 12000 
IF VAL <01*> • 0 THEN 12125 
GOSUB 100601 REM CONTR.OATA 

|F U • I IHEN U • OU* - 16*1 OOSUB 861 GOTO 12125 
IF R6* - "2* THEN 12327 
12140 17* - '<RET>-IUTT1 '* OOSUB 6000 
12145 X - 1HY -1 

12150 X* • 'DA NUMERO *«L - 3«M • UN - 1IC1* - 'IC2* - l GOSUB 

0IGl» - J* 

12151 IF 01* - *F " THEN 12153 
GOTO 12155 

IF RI* - *1* THEN 12320 
GOTO 12000 

ir Gl* - ' * THEN 12190 

12157 Z9» = Gl•I GOSUB 200 

12158 IF Z9 » 1 THEN J* - "ERRORE INPUT' 

12160 U - VAL < Gl•> 

12170 GOSUB 129001 REM LETT 

12180 ir TI* - ** THEN J* - X9*i GOSUB 861 VTAB 231 HTAB 11 CALL - 9501 OOTO 
12145 

12182 U2 - U 

12185 OOSUB 57701 REM AZZ.TI* ECC. 

12190 X - 131X* “ A NUMERO 'IL ■ 3*M - UN • 1*C1* • "iC2* - i GO..U0 

20102» - J* 

12195 IF 02* - 'F * THEN 12145 
12300 IF G2* - ‘ THEN 12328 

12302 Z9* - G2«i GOSUB 200 


12128 

12130 

12132 

12133 

12134 
12137 


12152 

12153 

12154 

12155 


GOTO 12145 
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Pierre Lofigie-Laurent 

UN PERSONAL COMPUTER FIRMATO IBM 

Il libro offre una panoramica completa sul 
Personal Computer IBM. Comincia col descrivere 
l'hardware. passa poi alle due applicazioni, alla 
programmazione e ai sistemi operativi. 

Illustra le diverse configurazioni che si possono 
realizzare per soddisfare esigenze di utenti diversi, 
e finisce con un breve manuale per l'installazione 
e l'uso. 

Una preziosa prefazione all'Edizione Italiana 
integra ed aggiorna l'edizione originale. 
L'immagine che ne esce, grazie allo stile e al 
linguaggio, è quella di un'informatica abbordabile 
e cordiale, pronta a venire in aiuto sul lavoro e a 
istruire e divertire in famiglia. 
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PROGRAMMI UTILI PER IBM PC 

Il libro presenta una serie di oltre 65 programmi 
per il Personal Computer IBM, ampiamente 
collaudati e pronti per l'uso. 

Dopo una breve introduzione, che vi metterà in 
grado di usare i programmi proposti, seguono i 
programmi stessi suddivisi per capitoli: finanza e 
bilancio familiare, gestione commerciale, beni 
immobili, analisi di dati, registrazione di dati, 
esercizi di matematica. 

I programmi sono da "usare", e il libro non ha la 
pretesa di insegnarvi la programmazione in 
BASIC, ma proprio l'uso dei programmi vi porterà 
gradualmente, e quasi automaticamente, ad 
apprenderne le tecniche fondamentali: può essere 
un buon punto di partenza per diventare voi stessi 
programmatori. 

E proprio per aiutarvi in questo, nelle Appendici è 
presentata una serie di sottoprogrammi di uso 
generale, usati dai programmi del libro, e vi viene 
spiegato con facili esempi come inserirli nei vostri 
nuovi programmi per risparmiare tempo e fatica. 
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12303 ir Z9 - 1 IHEN J* - "ERRORE INPUT" l GOTO 1219(1 
12305 U - VAL <G2*> 

12315 OOSUB 129001 REM LETI. 

12325 IP TI* ; TMEN I* m> OOSUB 06* VTAO 23* UT AB 1: CAI.L 930* GOTO 
12190 

12327 U3 - U 

12328 RETURN 

12330 J* ■ "PREPARARE STAMPANTE * : OOSUB 86 

12331 14* » "STAMPA IN ESECUZIONE*117» - '‘» 15» - "" 

12333 FLASH > GOSUB 6800* NORMAL 

12335 PRINT ST* 

12340 PRINT CHR* <9)1"80N" 

12350 FOR U * U2 IO U3 
12355 GOSUB 12900» REM LETT 
12357 ir TI» - THEN 12370 
12340 GOSUB 12600* REM ST.REC. 

12365 GOSUB 5770 
12370 NEXT U 

12372 EOR 1 « 1 TO 72 - Ri PRINT I NEXT I 
123/3 PRINT 0*I"PRf0" 

12377 PRINT CL*IU* 

12380 DOTO 12000 

12395 REM - 

12396 REM SE TUTTI 

12397 RrM 

12400 U - 0« GOSUB 12900 
12405 03 - VAI <T1*):U2 • 1 
12410 OOTO 12330 
12473 REM - 

12496 REM ST.INTESTA/ 

12497 REM 

12500 09* * LErT* <01*.2) ♦ V* ♦ MIO» (DI*.3.2) ♦ "/* ♦ RIGIIT* 101». ?> 


12503 

12505 

12510 

12515 

12317 

12520 

12530 

12595 

12596 

12597 
12600 
12602 
12605 
12610 
12612 

12615 

12616 
12617 


PRINT TAO ( 0 >112» >07* 

PRINT TR* ♦ lErT* <TR*.39> 

PRINT 113* 

PRINT TR* • LETT» (TR«.39> 

PRINT 
R - 5 
RFTIJRN 

REM - 

REM ST.RECORO 
REM 

IF T2t • " THEN 12605 
T2 /O » VAL <T2*> 

IT 13* « "* THEN 12612 
T3 - 80 * VAL <T3»> 

IF T4* « "" THEN 12616 
T4 - 90 ♦ VAL <T4*> 

IF T5* ‘ *" THEN 12620 

Il R5* « 1* THEN T5* * LCTT* <T5*.2> 


RIGHI* <T5*.2>: OOTO 12620 
RIGHI* <T3».2> ♦ 


MIO* < T5«.3.2) 


♦ MIO* <T5*.3.2> ♦ "/ 

♦ "/" ♦ LEFT» < 13*«2) 


12620 GOSUB 12800» REM S.PAG 
12630 PRINI IAB< 2) RIGHI* <SP* 

>> TAB( 19 16> LEFT* <T6* 

8P*.10>> 

12632 PRINT TAU( 54 51) LEI T* <T*(T3> 

T*<T4> ♦ SP*.IO) 

12635 IF RS* ^ "1* THEN 12690 
12640 0 - 1 

12642 FOR K » I IO 40 


TI*.3)I TAB( 9 4 ) LEFT* <T5* ♦ SP*.8 

SP *•20)I TAB( 42 - 3B> LEFT* <T»<T2> » 


SP».10>> TABI 66 - 63) LETTI ( 


12644 F«<K > 


12646 

12648 

12650 

12652 

12654 

12660 


IF K » 
PRINT 


MIO* (T«.G.?)iu <1 • 

I OR K • 21 THEN TRINI 
LEFT* <F*(K > ♦ SP *.2 > T 


TAO( 19>"«"T 


Il K • 20 OR K - 40 THEN PRINT "*"i OOTO 12654 
PRINT "-"> 

Nf XT K 
PRINT 


12670 R • R ♦ 
12690 RETURN 


12795 

12796 

12797 
12B0U 
12805 


REM 

REM SALTO PAO 
REM 

Il K < 65 THEN 12850 ur - VT 

IF R > - 65 ANO R < >72 THEN FOR I • 1 TO 72 - R« PRINT i NEXT 
Il OOSUB 123001 GOTO 12850 
12810 GOSUB 12SU0 
RETURN 

REM - 

REM LETT FOTORULL 
ONERR GOTO 20000 
PRINT RO* >U*»‘.R"IU 
INPUT T1*.T2».T3*.T4*.T5*.T6*.F* 

PRINT D* 

RETURN i REM 

REM - 

REM STAMPA TABELLA 
REM 

"STAMPA TABELLA" 

-TABELLA 
"TIPO RULLINO" 

MARCA RULLINO" 


12850 
12895 
128VA 
12900 
12905 
12910 
12920 
12970 

13995 

13996 

13997 
14000 I* 
14010 H2« 
14015 113* 
14020 M4* 


eoo 


OPERATIVI 


14022 M5* • "SENSIBILITÀ 1 " 

14025 H6* » "TIPO DI FOTOGRAMMA" 

14030 RR* - LEFT* <TR*.23> 

14100 GOSUB 12110 

14102 J* - "PREPARARE STAMPANTE "l GOSUB B6 
14110 14* - "STAMPA IN ESECUZIONE"117* • ""» 
14120 FLASH « GOSUB 6800! NORMAL 
14150 PRINI ST* 

14160 PRINT CHR* <9>>*80N 
14180 09* » LEFT* (D1*.2> 


V* ♦ MIO* (01*.3.2) ♦ 


RIGHI* <01*.2) 


14200 PRINT TABI 5>H2*>09* 

14210 PRINT TR* ♦ LEFT* <TR*.38> 

14215 PRINT TAB < 3> LEFT* 013* ♦ SP*.23>l TABI 28 - 24) LEFT* <H4* ♦ SP* 
.23)> TAB< 35 - 50) LEFT* <H5* ♦ SP*.23> 

14220 PRINT TAB < 3>RR*> TAO< 28 - 24>RR*I TA8< 55 - 50>RR* 

14225 PRINT 

14230 T - 70iT1 « 80*T2 - 90 
14240 FOR I - 0 TO 9 
14250 PRINT TABI 3>ll" 

! LEFT* < T» < T1 
♦ SP».20) 

NEXT I 

FOR I ■ 1 TO 7i PRINT I NEXT 
PRINT TR* ♦ LEFT* <TR«.38> 

PRINT TAB < 28>H6* 

PRINT TR* ♦ LEFT* <TR*.38> 

PRINI 

I ■ 1IJ » 24 !K ■ 47 
»«- » ' 23 THEN 14400 

TAB( 2> RIGHI* (SP* ♦ STR* <I>.2>>* "I LEFT* <T*<I> * SP* 


"I LEFT* < T*(T ♦ I> ♦ SP*.20>I TA8< 28 - 23>ll" * 
♦ SP*.20)I TAB< 54 - 48>lll" "I LEFT* (T*(T2 ♦ I> 


14260 
14270 
14275 
14280 
14290 
14295 
14300 
14310 
14320 


PRINT 


0): TAB < 28 - 24>J>" ! LEFT* (T*(J> ♦ SP*.20>I TAB( 54 - 50>K>" "» LEFT* 

(T *(K ) ♦ SP».20 > 

14330 I - I ♦ 1IJ - J ♦ 11* - K ♦ 1 
14340 GOTO 14310 

14400 FOR 1 c I TO 221 PRINT S NEXT 
14410 PRINT D*>"PREO* 


14420 I - 0»J • 0*K - 0 
14430 GOTO 12000 

14V95 REM - 

14996 REM ST.RULL.SINGOL0 
1499/ REM 

15000 H4* •"FOTOGRAMMI" 

15010 H2* -"LISTA RULLINO COMPLETO DEL 

15015 M3* • "NUMERO DATA TITOLO. TIPO... MARC 

A SENSIBILITÀ*" 

15025 IF M7 - 1 THEN 15083 
15030 X • 22* V - 1 

150*0 X* * "DATA ELABORAZIONE "*L ■ 6iM • UN • 1IC1* - "*IC2* ■ ""1 

GOSUB 28*D1* - J* 

15050 IT DI* • " " THEN 15040 

15060 GOSUB 10860 

15070 IF U = 1 THEN U OUI - 16*: GOSUB 86i GOTO 15040 
15000 J« ■ 'PREPARARE STAMPANTE '« U05U8 86 
15082 17* - “*!I5* - ** 

1508.1 14» « "STAMPA IN ESECUZIONE" 

150C5 FLASH 1 GOSUB 68001 NORMAL 
15100 PRINT D» >"PRf1 * 

15110 PRINT CHR* <9)1"CON" 

15113 IF u; * 1 THEN 15130 
15120 W/ - «1 GOSUB 12500 
15130 GOSUB 126001 PRINT 

13140 PRIMI TAU( 3 > t LEFT* <TR*.10>I" '*114*1' 'I LEFT* <TR*.4B> 

15145 PRIMI 
15150 0 • 1 

15160 FOR K - 1 TO 40 

15170 F*(X> * MIO» iF».Q.2>*0 «0*2 

15180 NEXT X 

15200 I - 1*J » 14*P - 2/ 

15210 IF P • 40 THEN PRINT TAB < 56>r>" "I I.CrT* (T»( VAL <F*(P>>> ♦ SP* 
.20)* GOTO 152/0 
15215 IT P > 40 THEN 15270 

15220 PRINT TAC( 2) RIOHT* (SP* ♦ STR* <I>.2>I" "» LEFT* <T*< VAL (r*(I 
>)) » SP».20)I 

15225 PRINT TABI 29 - 24)J*" "I LETT* <T*< VAL <r*(J>>> ♦ SP*.20)I 
15227 PRIMI TABI 55 50)P»" "> LEFT» <T»< VAL (F*(P))> ♦ SP*.20> 

15230 I - J ♦ 1»J • J ♦ 1*P - P ♦ 1 
15240 GOTO 15210 

15270 PRINT AS* ♦ LEFT* <AS*.39> 

15275 R - R » 20 
15280 PRINT D*I"PRfO" 

15290 GOTO 63U0 

17995 REM - 

17996 REM CREAZ.DISCO 

17997 REM 

18000 IO* - "CREAZIONE DISCO* 
ionio GOSUB 5420 

18012 X = 0iY • 51X* - "E* PRIMO DISCO ?(S/N> "*L - 1*M • UN • 4*C1* - * 

N-IC2* • "SN'i OOSUB 281Z* • J* 

18013 II Z* « "S* THEN VTAfl 101 HTAB 51 FLASH i PRINT "ASSICURARSI CHE I 
L DISCO"l HTAB 5i VTAB IH PRINT SIA VUOTO 0 DA RIUTILIZZARE'i NORMAL 


PRINT i HTAB 5 


t OOTO 10025 

18014 OOSUB 465 

18015 VTAB 81 HTAB 5 

18020 PRINT " TOGLIERE OISCO ARCHIVIO DAL DRIVE I PRINT 
10022 FLASH i PRINT "INSERIRE UN DISCO NUOVO"1 HTAB 5 
18023 PRINT "0 OA RIUTILIZZARE"! NORMAL 
10025 13* ' "^CONTINUA F-F INE 
18027 C2* • "CF'iCI* • "C* 

18030 Q0SU8 61101 REM INPUT FONDO 
18035 IF R* - "F" THEN 1000 
18040 IF R* < > "C" TMEN 18030 

10050 14» "PREGO ATTENDERE 5' CIRCA'I GOSUB 6030 

IDOj’i PRINT D*I * INIT HELLO"i PRINT D*!"DELETE HELLO"! PRINT D» 

18100 ONERR GOTO 20000 

18102 PRINT 0P*«TA»»TL«ITS*.TO* 

10104 FOR I - 0 TO 99 

18105 PRINT UR*lTA*!".R"»I 

18106 PRINT I*(I>I NEXT II PRINT CL*lTA* 

10107 PRINT 0*1 POKE 216.0 

18150 TI* • ' "tT2* • " '«T3» « " "IT4* ■ " "IT5* ■ * *IT6* ■ LEFT* 

<SP*.20)iT7* ■ LEFT* (SP*.40> 

18190 PRINT 0P*>U*IU1*IU2»»U3* 

18200 FOR U ■ 0 TO 999 
18210 PRINT UR*IU*I".R*>U 

18220 PRINT T1 * > PRINT T2«i PRINT T3*i PRINT T4*i PRINT T5*i PRINT T6*l PRINT 
T7* 

10230 NEXT U 

18240 ONERR OOTO 20000 

18245 PRINT CL*IU* 

18250 PRINT 0* 

18350 J* » "CREAZIONE OISCO OK ** OOSUB 86iZ - Il OOTO 1000 

18995 REM - 

18996 REM 

19000 IO* - *C 0 P I A DISCO" 

19010 OOSUB 5420 
19020 VTAB Bi HTAB 5 

19030 PRINT "TOGLIERE DISCO ARCHIVIO"! PRINT ! PRINT I HTAB 5 
19050 PRINT "INSERIRE OISCO PROORAMMI” 

19060 13* • "C-COMTINUA 1-FINE " 

19070 C2* - "CF*IC1* • "C* 

19080 GOSUB 6110 
19090 IF R» * *F" THEN 1000 
190V5 IF R* < > *C" THEN 19080 

19100 ONERR GOTO 20000 
19105 PRINI D*I'RUM COPTA.01* 

20000 REM •■■•———■■•••• 

20010 REM GESTIONE ERRORI 
20020 REM 

20025 PRINT D*»‘PRf0" 

20030 ER » PEF.K (222) 

20040 IF ER > 3 ANO ER < 11 TMEN 20050 
20045 GOTO 20200 
20050 HOME 

20060 INVERSE ! PRINT "ERRORE SU DISCO"! NORMAL 
20070 PRINT 

20OB0 PRINT CONTROLLARE SE LO SPORTELLO DEL DRIVC'i PRINT " E' CHIUSO 
": PRINT 

20090 PRINT - CONTROLLARE SE IL OISCO E' NEL ORIVE"! TRINI 
20100 PRINT " CONTROLLARE SE IL OISCO E* INSERITO"* PRINT * 


CORRETTAMEN 


20103 PRINT 

20105 PRINT ' CONTROLLAR! SE 11 DISCO C' 0UL1LO "* PRINI " GIUSTO 
20110 VTAB 20* HTAB 1! PRINT TR* 

20160 X • 22 :Y - 1 

20161 X* • 'BATTERE <RETURN> "IL - 1*M • 1*N • 1*C1* - "*C2* • "• G08UB 
28IR* • J* 

20163 IF R* < > " " TMEN 20161 

20170 PRINT 0** POKE 216.0 

20175 PRINT 0*•"CLOSE"«ER - OiR* • "" 

20177 IF ZI - 1 TMEN 360 
20180 OOTO 1000 
20200 HOME 

20210 INVERSE » PRINT 'ERRORE N. "IERI NORMAL • PRINT 
20220 PRINT "IMPOSSIBILE CONTINOARE" 

20230 VTAB 20* HTAB 1* PRINT TR* 

20239 X • 22*Y • 1 

20240 X* • "BATTERE (RETURN) "*L • UN • 1«N - 1*C1* - "»C2* - *"• OOSUB 
28 :R* * J* 

20242 IF R* < > * 1HCN 20240 

20245 PRINT 0** POKE 216.0*R* • " 

20250 TRIMT 0*>"CLOSE"*ER • 0* MONE I LNO 
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D entro l’avventura 


Parte terza- 


Continua il nostro 
Adventure per C 64 

di Roberto Tabacco 

C ome vi sarete già accorti 
leggendo le puntate prece¬ 
denti, abbiamo affrontato 
il problema in maniera abbastanza 
tecnica: forse ad alcuni i moduli sa¬ 
ranno apparsi ancora incomprensi¬ 
bili e, nonostante le spiegazioni, non 
avranno ancora capito certe situa¬ 
zioni. 

Non è importante: piano piano capi¬ 
rete perché avremo modo di rispie¬ 
gare certi argomenti che forse finora 
vi sono sfuggiti o vi risultano poco 
chiari. 

D’altra parte studiare e realizzare 
un programma per computer non è 
una cosa semplice. 

In questo numero troverete la Map¬ 
pa del gioco (figura 1 ), quella defini¬ 
tiva; fate se potete una fotocopia 
della stessa per averla sempre sotto 
gli occhi. 

Nella prima parte abbiamo parlato 
della scaletta, ossia di quell’insieme 
di annotazioni necessarie per co¬ 
struire il gioco. 

Annotazioni sulla storia e non sul 
programma BASIC vero e proprio. 
Il programma attuale non può gira¬ 
re perché mancano delle istruzioni: 
esercitatevi a creare delle storie sem¬ 
pre diverse e quando avrete in mano 
il programma completo non vi sarà 
difficile, dallo stesso modulo, creare 
tante altre storie. 

Come ho già avuto modo di dire, la 
storia, in inglese il Plot, è la fase più 
importante di un Adventure. So¬ 
prattutto è fondamentale scegliere 
storie adatte. 

Walt Disney, il mago dei disegni 
animati, un artista geniale, soleva 


dare ai suoi collaboratori poche di¬ 
rettive, che dovevano servire per 
creare e sviluppare i vari Plot. Di¬ 
sney aveva individuato alcune trap¬ 
pole che gli sceneggiatori dovrebbe¬ 
ro evitare (ma non sempre ci riesco¬ 
no). 

1 - Mancanza di riflessione: sperare 
*che un buon soggetto per un film 
(adventure nel nostro caso) di due¬ 
cento metri (di 13/15 Kbyte nel no¬ 
stro caso, quindi un adventure non 
molto complesso) possa andar bene 
per un film o un adventure di lun¬ 
ghezza doppia. 

2 - Sottigliezza: un’idea sottile, per 
quanto brillante, è condannata a 
non essere capita dal pubblico. Gli 
adventure devono risultare chiari ed 
immediati. 

3 - Perdita di prospettiva: dopo aver 
lavorato per molto tempo intorno 
ad un’idea cominciamo a credere 
che le idee nuove siano migliori delle 



Figura 1. La mappa definitiva 
deI gioco. 


Modulo 1. 



80 

REM SET 

CAMBIO 

VALORI OGGETTI- 

32 

PS=1 :RT= 

= 1 LE=1 

ER=1'0F=1 

85 

REM SET 

PC 


87 

PC=7 



88 

GOTO180 



80 

PC=L2 




vecchie, per cui perdiamo il centro 
della storia e ci mettiamo ad insegui¬ 
re strade che confondono l’idea ge¬ 
nerale e risultano astruse al giocato¬ 
re. 

Non tutti tra voi desiderano realiz¬ 
zare adventure per poi divenire pro¬ 
fessionisti o vederli pubblicati: in 
fondo può esistere anche il solo desi¬ 
derio di averli realizzati e presentati 
ai propri amici. 

Una buona idea è quella di dividersi 
il compito nel realizzare un Adven¬ 
ture. 

Un vostro amico particolarmente 
bravo nel creare delle colonne sono¬ 
re può accentrare il suo lavoro di 
programmatore nel creare un moti¬ 
vo di accompagnamento al gioco. 
Un altro particolarmente portato 
per la grafica (anche se fino ad ora 
non abbiamo trattato questo argo¬ 
mento) può curare una piccola parte 
grafica del programma e così via. 
Non vogliamo però addentrarci nel 
problema grafica-sonoro, perché ri¬ 
teniamo che un buon Adventure 
debba avere una parte scritta molto 
curata ed intelligente. 

Riprendiamo ora lo studio vero e 
proprio del nostro Adventure “Sel¬ 
vaggio West”. 

Il modulo 1 tratta degli oggetti che 
sono nel gioco. Ricorderete che ab¬ 
biamo definito ogni oggetto con una 
propria variabile. 

Variabili per gli oggetti: 

• PS = Pistola; 

• RE = Rete; 

• LE = Legno; 

• ER = Erba; 

• OF = Oggetto fuorilegge; 

(questo è l’oggetto che voi dovete 
scegliere, porre nel luogo giusto e 
determinare in quale luogo va usa¬ 
to). 

Alla riga 82 abbiamo inizializzato 
tutte le variabili a 1: questo significa 
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che alla partenza del gioco gli ogget¬ 
ti hanno assunto il valore di I. 

Alla linea 87 la variabile PC assume 
il valore di 7. 

Questo vuol dire che all’inizio del 
gioco il programma andrà nel luogo 
n. 7, la casa del Pioniere, che è la 
partenza del gioco vero c proprio. 
Siamo noi, autori del gioco, a defini¬ 
re la sua partenza ed il luogo da dove 
tutto deve iniziare. 

La variabile PC, che ha il valore di 7, 
può essere da voi modificata a piaci¬ 
mento con un altro numero. 

Vi ricordiamo, però, che con questo 
sistema di gioco dovete creare le 4 
uscite, ossia una a Nord, una a Sud, 


Modulo 2. 

1519 REM Di AD UNO LETTERA 

1520 IFDÌ="I"THEN2541 

1521 IFD$="G"THEN10000 

1522 IFDÌ="P"THEN6003 

1523 IFD$="C"THEN7000 


una ad Ovest ed una ad Est; dal 
nostro quadrato (guardate la map¬ 
pa) partono le 4 frecce per le 4 possi¬ 
bili direzioni. 

Quindi PC può assumere il valore di 
8 e la stanza 8 deve avere così la 
possibilità delle 4 uscite. Nella linea 
88 trovate un Goto 100. 

Se andate a dare un’occhiata a que¬ 
sto modulo che abbiamo già presen¬ 
tato, vedrete che dalla linea 100 par¬ 
te la selezione delle stanze o luoghi 
del gioco. 

Quindi, trovato il luogo giusto, il 
programma va alla linea printata a 
5070, dove trova il luogo e la descri¬ 
zione n. 7. 

Esaminiamo ora il modulo 2. 

Inizia a 1519; noterete che D$ (l’in¬ 
put di gioco) se assume il valore di I 
va a 2541. Cosa trova a 2541? 

Vi trova l’inventario, la routine che 
calcola e definisce l’inventario di 
gioco, cioè gli oggetti clic si sono 
presi. 


Se invece come risposta a D$ noi 
daremo la lettera singola G, il pro¬ 
gramma salterà a 10000, dove inizia 
la routine che gestisce la possibilità 
di rivedere il testo del luogo in cui ci 
troviamo. 

Analogamente se D$ vale P o C. 

Il modulo 3 va dalla linea 160 alla 
linea 206. 

Qui si trovano tutte le indicazioni 
necessarie a far capire al computer 
quali calcoli deve fare e di cosa deve 
tenere conto durante il gioco. 

La linea 162 fa sì che se il giocatore si 
trova nella stanza n. 9 e la Pistola è 
= 1 (cioè il giocatore non ha ancora 
usato la Pistola), allora il program¬ 
ma salta alla linea 4000. 

Nella linea 4000, che ancora non è 
stata presentata, cosa trova il com¬ 
puter? 

Trova un messaggio d’aiuto, o co¬ 
munque un messaggio che potrebbe 
confondere, e lo stampa sullo scher¬ 
mo. 


PC = Locazione partenza 
L2 = Nuova locazione 
PS = Pistola 
RF. = Rete 
ER = Erba 
LE = Legno 
OE = Oggetto fuorilegge 
OG%= Stanza in cui si trova l'oggetto 
OGS -= Nome dell'oggetto 
LOS = Lunga frase che indica la presenza 
dell’oggetto 
DS = Input 
N = Nord 
S = Sud 
E = Est 
O = Ovest 

C = Comandi _. 


G = Guardo testo luogo Ftguta ~. 

I = Inventario Elenco 

VRS = Verbo delle prime 

SOS = Sostantivo variabili 

IV = Variabile inventario usate in 

G = Variabile per verbo prendere “Selvaggio 

L — Variabile per verbo lasciare West”! 


Modulo 3. 


160 REM CONTROLLA I CAMBIAMENTI 

162 IFPC=9 ANDPS=1THEN400O 

163 IFPC=2 ANBRE=1THEN4005 

164 IFPC=5ANDER=1THEN402O 

165 IFPC=?ANDLE=1THEN4015 

166 REM OGGETTO E LUOGO FUORILEGGE 

167 IFPC*9 ANDPS=0THENPS=1 GOTO15000 

168 IFPC=2 ANDRE=0THENRE=CGOTO15010 

169 IFPC=5ANDER=0THEHER=1 : GOTQ15015 

170 IFPC=7ANDLE=0THEHLE=1 : GOTO15020 

171 REMM OGGETTO E LUOGO FUORILEGGE- 
180 REM STAMPA INPUT Ut 

182 PRINTCHR$<13) 

183 PRINT"-":INPUT"T‘;D$ : PRINTCHR*(13> 

185 REM BLOCCA PROGRAMMA 

186 IFPC=9 ANDPS=1THEN1500 

187 IFPC=2 AHDRE=1THEN1500 

188 IFPC=5ANDER=1THEN1500 

189 IFPC=7ANDLE=1THEN1500 

190 REM OGGETTO E LUOGO FUORILEGGE = 

200 IFD$="N"ORD*= ,, S"ORD$="E"GRD*="O"THEN302 
206 GOTO1520 
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Nella stanza n. 9 abbiamo l’appari¬ 
zione dello Scorpione. 

Nella stanza n. 8 abbiamo trovato la 
Pistola, l’abbiamo presa ed ora sia¬ 
mo nella stanza n. 9 dove c’è lo Scor¬ 
pione. 

Viene stampato così un ulteriore 
messaggio, che ancora non abbiamo 
scelto. 

Per esperienza sappiamo che questa 


Modulo 4. 

150 REM STAMPA OGGETTI 

152 F0RX=1TQ5 

153 IF OGX<X)=PCTHENPRINTLO$<X> 

154 NEXT 


Modulo 5. 


2499 REM COMANDO DUE PAROLE 

2500 FORP=1TOLEN( DS > 

2502 IFMID$<D$,P>1>*" "THEN2510 
2504 NEXT 

2506 PRINT”“OMANDO INCOMPLETO!NON PUOI DIRE SOLO D* GOTO182 

2503 REM VERBO 

2510 F0RSP=1T0LEN(D$) 

2512 IFMID$<D$,SP,1>=" "THEN2515 

2513 NEXTSP 

2515 VR*=LEFT$<D$,SP-1> 

2517 SQ*= RIGHT*(D*,<LEN<D$>-SP>> 

2520 REM VR$ 

2522 IFVR*="PRENDO"THEN2552 

2523 IF VR$ ="LASCI0"THEN2580 

2524 IFVR*="ESAMINO"THEN2590 


Modulo 6. 


5000 

5001 

5002 

5003 

5004 

5009 

5010 

5011 

5012 

5013 
5019 
5820 

5021 

5022 

5023 

5029 

5030 

5031 

5032 

5033 

5039 

5040 

5041 

5042 

5049 

5050 

5051 

5052 

5053 

5059 

5060 

5061 

5062 

5063 

5069 

5070 


Pririt." 33R0TTA DELLO STREGONE 3" 

Print"SEccoti 9iunto alla Grotta di un amico : Lo Stregone Nava,io." 
Print" La 9rotta Pero'' ha i 1 Passa99io ostruito da un masso. 

Print" Per Guanti tentativi tu faccia il masso non si sposta...." 
Print"a Ma tu sai che fare vero ?-" 
n=0 : o=0 : e=2 : s=0 : 9oto152 


Print" a DESERTO ALTO 

Print "a Qualcosa ti dice che sei molto vicino alla soluzione." 

Print" Ti guardi attorno e...." 

Print "a Da sotto una roccia esce un serpente che striscia verso di te! 
n=0 : o=1 : e=3 : s=7: goto152 

Print" a DESERTO ALTO 3 " 

Print "a Questa zona del deserto e' circondata da alte roccie. " 

Print" Il caldo ti soffoca..." 

Print" Per terra c'e'' una grossa Pietra...." : rem<Pietra=scorPione morde) 


n=0 : e=0 : s=0 : o=2 : 9o to 152 
Print" a DESERTO ALTO 3" 

Print "a Continui il tuo cammino." 

Print" Il sole e' alto...Non vedi alcun 
Print"a Coraggio ! " 
n=0:s=0 ; e = 0 : o=3 : goto152 
Print" a GROTTA SIOUX 

Print "a I Sioux sono riuniti intorno ad un 
Print" Legato al Totem ••fedi la figlia del 
n=0:o=4 : e=8 : s=0 : goto152 : remfuori gioco 
Print" a DESERTO DI MEZZO-" 

Print" a Sabbie Mobili " 

Print“a Senza rendertene conto affondi i tuoi 
Print "a Presto ti accorgi che e' Sabbia che 
n=0 : e=0 ^ s=0 : 0=0 : 9oto6000 •' rem (fuori 9ioco>- 
Print" a CASA PIONIERE 3" 

Print"a II Boscaiolo,Padre della bimba ti 
Print" buona fortuna...riuscirai a riportare 
Print" SIOUX ????" 


riparo intorno a te " 


Totem..." 
Boscaiolo.... 


Piedi nel la sabbia..." 
ti inghiotte." 


saluta e ti augura" 
la sua bambina rapita dai" 


n=2:s=12 : e=8:o=6 : goto152 

Print" a DESERTO DI MEZZO 3" 


II 
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Dentro 

l’avventura. 


è la parte più difficile da capire, ma 
una volta capita si può facilmente 
superare ogni grande problema che 
un Adventure pone al suo program¬ 
matore. 

All'inizio del gioco sappiamo che PS 
= 1 è la variabile inizializzata in par¬ 
tenza. Quando il giocatore arriva al¬ 
la locazione 9, dato che PS = 1, ecco 
che viene scritto il primo messaggio. 
Se invece il giocatore arriva alla lo¬ 
cazione n. 9 e la Pistola ha valore = 
0, ecco che dalla riga 167 il program¬ 
ma va alla linea 15000. 

In questa linea troverà un altro mes¬ 
saggio, il quale dice che ha usato la 
Pistola, ma che gli serve nuovamen¬ 
te. 


Infatti If PC = 9 And PS = 0 Then 
PS = 1 Goto 15000. 

Come potete notare, la variabile PS 
che ha valore = 0 (perché è stata 
lasciata) riassume il valore di = 1. 
Questo per dar modo al giocatore di 
riprendere in quel luogo la pistola e 
usarla nuovamente. 

La terza condizione, infine, che se 
verificata manda dalla linea 186 alla 
1500, comporta il blocco da ogni 
possibile fuga del giocatore. 

Quindi se egli non usa la Pistola (po¬ 
trebbe anche non averla raccolta) è 
bloccato in questa locazione e anche 
se impartisce i comandi di direzione, 
che sono N, S, O, E, non può muo¬ 
versi. 


Nelle istruzioni 166, 171 e 190 trova¬ 
te una Rem, la quale vi ricorda che 
dovete porre in queste linee la varia¬ 
bile che avete scelto per il Fuorileg¬ 
ge. 

11 modulo 4 permette la stampa degli 
oggetti. Quando il programma ha 
stampato il testo del luogo in cui il 
giocatore si trova esegue questa rou¬ 
tine e stampa le informazioni che 
trova nei Data all’inizio del gioco. 
Il modulo 5 dà la possibilità di ricor¬ 
dare al programma che si deve (nor¬ 
malmente) dare una risposta con 
due parole. 

Per quanto riguarda poi il modulo 6 
avrete notato che è uguale a quello 
presentato la scorsa puntata. Questa 


5071 Print "SI II Deserto ti accesiie da o9ni lato.. 

5072 Pr 1 nt" non vedrai altro che lunghe distese di 

5079 ri=3 : s=0 : 0=7 : e=9 : SOto 152 

5080 Print" 3 DESERTO DI MEZZO 3" 

5081 Pririt"SI Ti trovi nel Deserto di Mezzo e la 

5082 Print" Ti stendi Per riposare un attimo stai 

5083 Pp’int" Senti un rumore sotti le. ImPercettbi le. 

5084 Print" e nero Scorpione avanza verso di te!" 

5089 n=0 : s=0 : e=10 : o=8 ; 9oto152 

5090 Print" 2 DESERTO DI MEZZO 

5091 Print "Sì-Quanta strada hai 9ia" fatto ???!!!" 

5092 Print" Per terra dietro ad un arido cesPu9lio 

5093 rem borsa=aPro-Piena di vermi velenosi che ti 

5099 n=5 : e=0 : o=9 : s=15 : 9oto152 

5100 Print" 2 DESERTO BASSO 

5101 Print "Sì-Questa zona era la Preferita di u.n 

5102 Prinfll silenzio ti circonda !" 

5103 Print" Accanto ad una roccia noti una cassa 

5104 rem monete=fuori Sioco<il bandito sbuca e ti 

5109 n=0:S=0:e=12 : 0=0 :9oto152 

5110 Print" a DESERTO BASSO 

5111 Print"SI-11 deserto ti circonda. " 

5112 Print" Che tu stia Perdendo la strada ?" 

5119 n=7 : s=0 : e=13 : o=11 : 9oto152 

5120 Print" a DESERTO BASSO 

5121 Print "SI- AMICO, ALZA LE MANI !- Qualcuno alle 

5122 Print" E' il crudele fuorile99e amico dei 

5123 Print" Vuol farti fuori!!!!!-" 

5129 n=8 : s=0 : e= 14 : o= 12 9oto 152 

5130 Print" a DESERTO BASSO 

5131 Print" SDavanti a te c'e' un'invitante Pozza 

5132 Print" Il caldo e' terribile...l'arsura ti 

5133 rem se bevo acqua ti avveleni - 

5139 n=9 : s=0 : e=15 : o=0:9oto152 

5140 Print" a DESERTO BASSO 

5141 Print" a La sabbia in questo luo90 ha una 

5142 Print" Senti 9iungere da lontano il suono dei 
5149 n=10 :s=0:e=0 : 0=0 : 9otO152 


SaPPi che d'ora in Poi" 
sabbia infuocata...." 


tua ricerca Prosegue...." 
Per addormentarti quando.." 
Ti accorsi che un Srosso" 


vedi una borsa di Pelle." 
mordono- 


celebre bandito " 

Piena di monete d'oro..." 
spara) 


tue spalle ti intima." 
Sioux ribelli. E' deciso!" 


d'acqua...." 
brucia la Sola !" 


colorazione rossa." 
Tarn Tarn dei Sioux" 
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Dentro 

l'avventura 


volta però il modulo è completo di 
ogni indicazione per giocare. 

Ora osservate questo modulo e la 
mappa di 15 blocchi che avete già 
disegnato. 

I blocchi presentati in questo nume¬ 
ro differiscono da quelli presentati 
nella prima parte per il fatto che ora 
voi trovate tutte le direzioni possibi- 


Modulo 7. 

60 REM DATA 

62 DATA3,RETE,STAI CALPESTANDO UNA RETE DI MAGLIA. 

63 DATA8,PISTOLA,DIETRO AD UNA ROCCIA VEDI UNA PISTOLA. 

64 DATA10,LEGNO,DAVANTI AI TUOI PIEDI UN LEGNO. 

65 DATA15,ERBA,IN UNA PICCOLA EUCA C'E' DELL'ERBA. 

66 DATAO, 

.REM OGGETTO VS/BANDITO 


Modulo 8. 

43 REM DIMENSIONAMENTO TABELLA#*** 

50 PRINT'TT 

51 DIMOG/i <5>, 0G*<5), L0*(5) 

52 FORX=1 T05 : READQG2 <X>, 0G$ <X>,LO*<X> 

53 NEXT 


Modulo 9. 

310 REM NON ESISTE DIREZIONE 

312 PRINT"NON PUOI ANDARE A "il)* G0T030 

1433 REM BLOCCA LA FUGA 

1500 IFD*="H”QRD#=“S"ORO*="E"0RD*="0"THEN1510 
1503 GOTO1520 

1510 PRINT"NO, ORA NON PUOI! "=GOTO182 


li di gioco. 

Le varie freccette che partono dai 
blocchi indicano i possibili passaggi 
da un luogo all’altro. 

Se confrontate questa Mappa con 
quella presentata nel primo numero, 
potrete rendervi conto senza alcuna 
difficoltà di quanto abbiamo cerca¬ 
to di spiegare fino ad ora. 

Partiamo dalla “Grotta dello stre¬ 
gone”. 

Essa si trova collocata nel blocco n. 

I. 

Guardate la Mappa e osservate le 
frecce di direzione. 

Dal blocco I si può andare solo al 
blocco 2, tutte le altre uscite sono 
bloccate. Dal blocco 2 si può andare 
nel blocco 1 e nel blocco 3. 

Ora queste frecce non sono fisse, nel 
senso che voi potete creare uscite ed 
entrate come più vi piace o, meglio, 
come il gioco le richiede. 

Vi proponiamo ora un piccolo eser¬ 
cizio molto utile. 

Create una mappa di 15 blocchi sen¬ 
za entrate né uscite (senza frecce per 
intenderci). 

Ora prendete il modulo6 listato, che 
trovate in questo numero. 

Noterete che alla fine di ogni testo 
compare una riga che dice: 

N = 0:0 = 0:E = 2:S = 0(nel caso 
della riga che chiude la prima scher¬ 
mata che va da 5000 a 5009). 

I Ora. con questo modulo da una par¬ 



te e la Mappa disegnata da voi senza 
frecce cominciate a disegnare su 
questa le frecce. 

Come? Semplice: prendete, ad esem¬ 
pio, la riga 5009. 

Essa dice che N = 0, quindi a N non 
si può andare, e così non si può nem¬ 
meno andare a O e S. 

Per E = 2 trovate l'indicazione di 
dove porre la freccia, ossia dal bloc¬ 
co 1 al blocco 2. Proseguite in modo 
analogo per il resto. 

Alla fine, quando giungerete alla ri¬ 
ga-5149 vi accorgerete di aver dise¬ 
gnato sulla vostra mappa tutte le 
indicazioni di percorso necessarie. 
Vorremmo dare ora un suggerimen¬ 
to per tutti quelli che hanno un 
floppy disk. 

Quando iniziate a digitare i moduli 
ponete queste 3 righe all’inizio: 


5 GOTO 7 

6 SAVE “@0 : WEST”,8 : VERIFY 
“WEST”. 8 : STOP 

7 REM GIOCO 

Ogni volta che aggiungete un nuovo 
modulo, o correggete il listato per 
salvare il programma, battete sem¬ 
plicemente : Goto 6 (al posto di Save 
“nome programma”, 8). 
Immediatamente registrerete il pro¬ 
gramma e lo verificherete. 
Concludiamo questa parte presen¬ 
tando altri 3 moduli, molto brevi, 
ma importantissimi. 

Il modulo 7 contiene i Data che ri¬ 
mangono in memoria durante tutto 
il gioco. Si tratta degli oggetti im¬ 
portanti ed utili, che serviranno al 
nostro eroe nel corso della sua Av¬ 
ventura. 

Sono la rete che trova nel luogo 3, la 
pistola nel luogo 8, il legno nel 10 e 
l’erba nel 15. 

Nella linea 66 dovete porre il nome 
del luogo, l’oggetto e una lunga fra¬ 
se, per il momento in cui l’eroe in¬ 
contrerà il Fuorilegge. 

Il modulo 8 è invece il dimensiona¬ 
mento della Tabella, mentre il mo¬ 
dulo 9 gestisce la direzione(una par¬ 
te dei comandi di direzione). 
Quando il programma incontra una 
variabile di direzione (N-S-O-E) = 0 
informa il giocatore che non può 
muoversi da quella parte. ■ 
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Una originale variante 
degli Space Invaders 

di Angelo Moria 

D opo le Torri di Plutone pre¬ 
sentato nel numero 20 di 
Personal Software, questo 
mese abbiamo un gioco spaziale. 


Diversamente dalla maggior parte 
dei ben noti giochi omonimi, in 
Aliens gli invasori sono fermi sul 
video mentre si muove solamente il 
vostro laser che si sposta automati¬ 
camente avanti e indietro. 

Il gioco è articolato in 5 livelli in 
ognuno dei quali bisogna distrugge¬ 
re tutti gli alieni. Per sparare basta 
premere un qualsiasi tasto. Anche se 
a prima vista tutto può sembrare 


molto semplice o addirittura banale, 
vi accorgerete che, mentre all'inizio 
è facile colpire gli alieni perché il 
video ne è pieno, ben presto gli alieni 
si diradano ed i colpi possono facil¬ 
mente andare a vuoto, facendo così 
avanzare gli alieni di una riga per 
ogni colpo mancato. Se gli invasori 
riescono a raggiungere la terra il gio¬ 
co termina con la vostra sconfitta. 
Se riuscite a distruggere tutta la for- 


Listato 1. Listalo BASIC del gioco Aliens descrit¬ 
to nel!'artìcolo. Diversamente dalla maggior parte 
dei giochi omonimi gli alieni sono fermi ed il laser è 
in continuo movimento. 



JLrndbjrnDq 

CL5 EtRNDO UTRNDU RETURN 3K1 70 + 
+ RETURN 04- *Y* MfRNDSfcRNDLN ■ 
EfcRND) 5 : <9 GOSUB ?.Yl_C RI 
--- REM E|gNC~ 


ScSQR EfcR ND) 5 
TURN X4 CLS O «A 

» 5 OQSUB DT»-»» 


: ■/ COP? * RET(JRn"*T C 
UTPRNDU RETURN 3K| 7Q + / 


GOSUB Pi* 7* GOSUB 


J37 SRUE 7 POKE RND 2 2 0 ElRNu 0 r 
✓ PLOT U 2 E 7 INKEY» 767 INKEY»EfcRNDQ 
UÉfcNDXMÉRND RETURN MeRN^B %, 
OPTO RNDE*RNDI_N BlNKEYg: COPY 
TRN 9 E 7 INKEYg GOSUB 77 INKEY» GOS 

RN §4 tts LPRINT 14 STOP *. EÌRN 
7 «RND GOSUB 9 TAN ///l# C 
OPY ■W 7 BS 77 B<« ////// 5 COPY 1 ) 
O* •'OR C NEXT 44 INP 

foiffivr» 

IO© POKE 10747 ,© 

110 POKE 16748 ,© _ 

L 3 £_PRINT TRB 14 j_"JBB 9 ";TRB 13 ; 
__ JB 12 ; "ÉrVÌÉ ,, ;TRB 1 

a; | H 

1 RT 4 ;ia; M l ■ ■ i u iTR 

B I 9 "; TRfe 13 ; '"W É"; 

TP Ti" 

l *1 UBI ; - » | | 



[80 PRINT RT 20 , 3;"VUOI LE ISTR 
UZIONI7 (S/N)" 

190 GOTO 190+(10 PND INKEYg-"S" 
)+(200 PND INKEYg-"N"> 

200 CLS 

310 PRINT TPB 11; "P L I E N 3" 
220 PRINT .,"LP TERRA STP PER E 


SSERE INUPSP DP TERRIBILI PLIEN 

I. " 

230 PRINT “UNICP DIFESA RIMPSTP 
; IL TUO LP-SER CHE SI MUOUE LUN 
GO LP SUPER-FICIE." 

240 PRINT "PER SPPRPRE PREMI UN 
TASTO OUPL-SIASI. MP RICORDA: S 
E MRNCHERPI" 

280 PRINT “GLI ALIENI. ESSI SI 
PUUICINERPN-NO ALLA TERRA E OUPN 
DO SARANNO ATTERRATI , SARAF LE 
FINE." 

260 PRINT "SE RIUSCIRAI A DISTR 
UGGERE UNA FLOTTA. NE APPARIRÀ* 
UN* ALTRA" 

270 PRINT "(MAX 5) ED AD OGNI S 
UCCESSIVA ILLASER SI MUOVERA* PI 
U* VELOCE- MENTE" 

280 PRINT .j"PREMI UN TASTO PER 
INIZIARE." 

300 IF INKEYg«*" " TMEN GOTO 300 
390 RAND USR 16908 
400 CLS 

410 PRINT "SCORE 0000 LEVEL 0 
RECORD 0000" 

420 PRINT AT 21.0;" ' ■■■■■ — 

430 POKE 16748.0 
440 POKE 16746.0 
460 LET L-USR 16826 
460 IF L-268 TMEN GOTO 700 
470 PRINT AT 4.7;"NON CE L“MAI 
FATTA" 

460 PRINT TAB 4;“LA TERRA E* ST 
ATA INVASA" 


810 FOR I-4TO 20 
820 PRINT AT 1.0; 


330 NEXT I 
540 GOTO 430 


«RT IV VV V f 

;or T -'' - - - ■ ■ 



•_“fi xn i ^ j 

TTE LE FLOTTE 
RRA E* SALVA" 


HAI DISTRUTTO TU 
ALIENE - LA TE 


780 GOTO 

1000 SAVE 

1001 RUN 


490 

"ALIEN®" 
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Dump 1. Elenco dei codici decimati della prima parte 
della routine in linguaggio macchina. Questi codici 

16638 

16639 

16640 

a 

a 

a 

130 

64 

54 

16703 

16704 

16705 

a 

a 

13 

32 

234 

devono essere caricati da tutti. 

CODICI DEL L./M SENZA IL 

GENERO- 

16641 

16642 
16843 
16644 

a 

a 

a 

a 

0 

58 

132 

64 

16706 

16707 

16708 

16709 

a 

a 

a 

42 

12 

64 

1 

TORE ! 

16526 

DI 

crratteri 

42 16582 

a 

64 

16645 

16646 

16647 

a 

a 

60 

254 

31 

16710 

16711 

16712 

a 

180 

2 

9 

16527 

— 

12 

16583 

22 

42 

16648 

a 

48 

16713 

a 

84 

16528 


64 

16534 


12 

16649 

= 

5 

16714 

a 

93 

16529 


1 

16585 

— 

64 

16650 

a 

35 

16715 

a 

1 

16539 

s 

6 

16586 

a 

1 

16651 

a 

54* 

16716 

a 

33 

16531 


0 

16587 

a 

101 

46652 

m 

21 

16717 

= 

0 

16532 

s 

9 

16588 

a 

0 

16653 

a 

24 

1671© 

= 

237 

16533 


6 

16589 

a 

9 

16654 

a 

9 

16719 

a 

66 

16534- 

s 

4 

16590 

a 

22 

16655 

a 

43 

16720 

a 

1 

16535 

ss 

35 

16591 

a 

4 

16656 

= 

54. 

16721 

a 

82 

16536 

ss 

54 

16592 

a 

14 

16657 

= 

21 

16722 

a 

2 

16537 

ss 

28 

16593 

a 

2 

16658 

a 

264 

16723 

a 

237 

16538 

a 

16 

16594 

a 

6 

16659 

a 

59 

16724 

a 

184 

16539 

se 

251 

16595 

a 

15 

16660 

a 

32 

16725 

a 

42 

1654.0 

s 

34 

16896 


54 

16661 

a 

2 

16728 

a 

12 

1654-1 

= 

133 

16597 


151 

16662 

s 

62 

16727 

a 

64 

1654-2 

s 

64 

16598 

X 

35 

16663 

a 

i 

16728 

a 

1 

1654-3 

ss 

1 

16599 

a 

35 

16664 

a 

50 

16729 

a 

149 

1654-4- 


9 

16600 

a 

18 

16665 

a 

132 

16730 

a 

2 

1654-5 

ss 

0 

16601 

a 

250 

16666 

a 

64 

16731 

a 

9 

1654-6 

ss 

9 

16602 

a 

35 

16887 

a 

34 

16732 

a 

6 

1654-7 

ss 

54 

16603 

a 

35 

16668 

a 

138 

16733 

a 

30 

1654-8 

a 

23 

16604 

a 

35 

16669 

a 

54- 

16734 

a 

35 

1654-9 

3 

34 

16605 

a 

35 

16670 

a 

205 

16735 

a 

126 

16550 

3 

137 

16606 

= 

13 

16671 

a 

187 

16736 

a 

254 

16551 

3 

64 

16607 

a 

32 

16672 

a 

2 

16737 

a 

151 

16552 

22 

1 

16608 

— 

241 

16673 

» 

44 

16738 

a 

40 

16553 

32 

13 

16609 

a 

1 

16674^ 

a 

40 

16739 

= 

74 

16554- 

2» 

0 

16610 

a 

31 

16675 

a 

208 

16740 

SE 

16 

16555 

3 

9 

16611 

a 

0 

16676 

= 

42 

16741 

ss 

248 

16656 

tr 

34 

16612 

a 

9 

16677 

a 

130 

16742 

a 

195 

16557 

a 

135 

16613 

a 

21 

16678 

= 

64 

16743 

— 

244 

16558 

a 

64 

16614 

a 

32 

16679 

a 

17 

16744 

— 

64 

16559 

a 

33 

16615 

a 

232 

16680 

a 

33 

16745 

a 

30 

16560 

a 

245 

16616 

a 

1 

16631 

X 

0 

16746 

a 

0 

16561 

a 

64 

16617 

a 

164 

16682 

a 

14 

16747 

a 

30 

16562 

a 

54 

16618 

— 

0 

16303 

* 

19 

16748 

a 

0 

16563 

a 

31 

16619 

— 

9 

16684 

a 

157 

16749 

s 

54 

16564- 

a 

33 

16628 

a 

34 

16685 

a 

237 

16758 

a 

0 

16565 

a 

139 

16621 

a 

130 

16686 

a 

82 

16751 

a 

42 

16566 

s 

64 

16622 

a 

64 

16687 


126 

16752 

a 

133 

16567 

a 

54 

16623 

a 

33 

16688 

a 

254 

16753 

a 

64 

16568 

a 

120 

16624 

a 

132 

16689 

a 

151 

16754 

a 

126 

16569 

a 

42 

16625 

a 

64 

16690 

a 

40 

16755 

a 

254 

16570 

a 

137 

16626 

a 

54 

16691 

a 

56 

18758 

a 

37 

16571 

a 

64 

16627 

a 

0 

16692 

= 

54. 

16757 

s 

32 

16572 

a 

126 

16628 

a 

14 

16693 

a 

a? 

16758 

a 

5 

16573 

a 

60 

16629 

a 

26 

16694 


52 

16759 

a 

54 

16574- 

a 

119 

16630 

a 

6 

lo695 

a 

5 

16760 

a 

28 

16575 

= 

58 

16631 

— 

255 

16693 

a 

16 

16761 

a 

43 

16576 

a 

245 

16632 

a 

16 

16697 

a 

254 

16762 

a 

24 

16577 

a 

64 

16633 

a 

254 

16698 

a 

81 

16763 

a 

246 

16578 

a 

214 

16634 


13 

16699 

a 

32 

16764 

a 

60 

16579 

a 

5 

16635 


32 

16700 

a 

251 

16765 

a 

119 

16580 

a 

50 

16636 

s 

251 

16701 

a 

54 

16766 

a 

42 

16581 

a 

245 

16637 

a 

42 

16702 

a 

0 

16767 

a 

105 


41 






mazione, passate al livello di gioco 
successivo dove compare un'altra 
flotta ed il laser si muove più veloce¬ 
mente. Per ottenere la velocità è sta¬ 
ta utilizzata una routine in linguag¬ 
gio macchina che gestisce la quasi 
totalità del gioco (dump 1). 

Questo gioco contiene anche una 
routine in linguaggio macchina che 
attiva il generatore di caratteri della 
B & U Interface e provvede alla mo¬ 
difica dei caratteri relativi agli alieni 


Seguito dump 1. 

16824 


48 

16768 

X 

65 

16825 

SS 

54 

16769 

a: 

35 

16826 

x 

237 

1677® 

x 

34. 

16827 

a 

83 

16771 

as 

103 

16828 

ss 

107 

16772 

s 

65 

16829 

s 

65 

16773 

se 

4.2 

16830 

= 

42 

16774- 

s 

130 

16831 

ss 

12 

16775 

— 

64- 

16832 

x 

64 

16776 

s 

54- 

16833 

s 

1 

16777 

as 

0 

16834> 

SS 

21 

16778 

ss 

58 

16835 

a 

0 

16779 

ss 

139 

16836 

s 

9 

1676® 

ss 

64. 

16837 

ss 

30 

16781 

a: 

61 

16838 

ss 

30 

16782 

ss 

50 

16839 

ss 

229 

16783 

x 

139 

1684© 

ss 

6 

16784. 

ss 

64- 

16841 

ss 

6 

16785 

x 

254- 

16842 

E 

3S 

16786 

— 

0 

16843 

X 

126 

16787 


4-0 

16844 

X 

254 

16788 

ss 

10 

16845 

s 

127 

16789 

ss 

4-2 

16846 

X 

56 

16790 

SE 

12 

16847 

X 

4 

16791 

s 

64. 

16848 

X 

222 

16792 

X 

1 

16849 

X 

128 

16793 

x 

14.9 

16850 

X 

24 

16794- 

ss 

2 

16851 

X 

2 

16795 

ss 

9 

16852 

X 

198 

16796 

ss 

195 

16853 

X 

128 

16797 

ss 

236 

16854 

a 

119 

16798 

x 

64. 

16855 

a 

16 

16799 

ss 

4.2 

16856 

X 

241 

1680® 

ss 

137 

16857 

X 

14 

16301 

x 

64. 

16858 

X 

40 

16802 

ss 

126 

16859 

X 

16 

16803 

ss 

254. 

16860 

X 

254 

16804. 

ss 

33 

16861 

X 

13 

16805 

ss 

194- 

16862 

X 

32 

16806 

x 

180 

16863 

X 

251 

16807 

X 

64. 

16864 

X 

225 

16808 

2 

205 

16865 

X 

29 

16809 

2 

174 

16866 

X 

32 

16810 

2 

65 

16867 

X 

227 

16811 


14 

16888 

X 

1 

16812 

SS 

255 

16889 

X 

4 

16813 

= 

201 

1687© 

X 

0 

16814- 

x 

167 

16871 

X 

42 

16815 

2 

42 

16872 

a 

133 

16816 

= 

107 

16873 

X 

64 

16817 


65 

16874 

= 

237 

16818 

a 

237 

16875 

a 

91 

16819 

s 

91 

16876 

X 

135 

16820 

s 

105 

16877 

= 

©4- 

16821 

— 

85 

16878 

X 

237 

16822 

2 

237 

16879 

X 

184 

16823 

2 

82 

16880 


201 


Dump 2. Elenco dei codici decimali della seconda parte 
della routine in linguaggio macchina relativa all’impie¬ 
go del generatore di caratteri. Devono essere impiegati 
dopo quelli del dump I da chi utilizza il caricatore del 
listato 3. 


CODICI L/M PER 
CRRflTTERI 

IL_ SENERRT.ORE 

16921 * 119 

16881 

X 

24 

16922 

X 

235 

16882 

X 

24 

16923 

X 

54 

16883 

X 

24 

16924 

X 

2 

16884 

X 

60 

16925 

X 

235 

16885 

X 

165 

16926 

X 

16 

16886 

X 

255 

16927 

X 

243 

16887 

X 

153 

16926 

X 

13 

16888 

X 

60 

16929 

X 

32 

16889 

X 

195 

16930 

x 

238 

16890 

X 

165 

16931 

s 

235 

16891 

X 

36 

16932 

X 

54 

16892 

X 

0 

16933 

X 

0 

16893 

X 

90 

16934 

X 

1 

16894 

X 

102 

16935 

X 

8 

16895 

X 

189 

16936 

X 

0 

16896 

X 

219 

16937 

X 

17 

16897 

X 

0 

16938 

X 

168 

16898 

X 

24 

16939 

X 

30 

16899 

X 

24 

16940 

X 

33 

16900 

X 

24 

16941 

X 

241 

16901 

X 

24 

16942 

x 

65 

16902 

X 

24 

16943 

X 

237 

16903 

X 

24 

16944 

X 

176 

16904 

X 

0 

16945 

X 

1 

16905 

X 

33 

16946 

X 

8 

16906 

X 

255 

16947 

X 

0 

16907 

X 

29 

16948 

X 

17 

16908 

X 

17 

16949 

X 

184 

16909 

X 

16 

16950 

X 

30 

16910 

X 

39 

16951 

X 

237 

16911 

E 

14 

16952 

X 

176 

16912 

X 

4 

16953 

X 

1 

16913 

X 

6 

16954 

X 

8 

16914 

X 

128 

16955 

X 

0 

16915 

x 

35 

16956 

X 

17 

16916 

x 

126 

16957 

X 

216 

16917 

x 

235 

16958 

X 

30 

16916 

X 

54 

16959 

X 

237 

16919 

X 

0 

16960 

X 

176 

1692® 

X 

235 

16961 


201 


(simili a quello che compare nella 
grafica iniziale di presentazione del 
gioco), il laser e lo sparo. I codici di 
questa ruotine sono elencati nel 
dump 2. Nella figura 1 viene presen¬ 
tato l'hard-copy del video sia con, 
che senza il generatore di caratteri. 

Analisi del listato 

1 - Rem iniziale contenente il lin¬ 
guaggio macchina. Deve essere lun¬ 
ga almeno 367 caratteri o 448 carat¬ 
teri per chi impiega il generatore di 
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Aliens per ZX81. 


caratteri. Per inserire i codici del lin¬ 
guaggio macchina utilizzare il cari¬ 
catore del listato 2 ed inserire i codi¬ 
ci del dump 1 e, se si usa il generato¬ 
re di caratteri, usare il caricatore del 
listato 3 ed inserire anche i codici del 
dump 2. 

100-110 - Azzera il valore dei byte 
contenenti il punteggio massimo 
raggiunto (Record). 

130-190 - Presentazione del gioco e 
richiesta istruzioni. 


200-300 - Visualizza le istruzioni. 
390 - Lancia la ruotine che attiva il 
generatore di caratteri e modifica i 
caratteri codice 21 (+ = laser), 23 
(asterisco in inverse = alieno) e 27 
(.= sparo laser). 

400-420 - Stampa a video i contatori 
del punteggio, livello gioco e pun¬ 
teggio massimo e la linea di terra 
dove scorrerà il laser. 

430-440 - Azzera il valore dei byte 
contenenti il punteggio della gara 


COPY DEL UIDEQ 


SENZA IL GENERATORE 
CARATTERI 


DI 


SCORE 0000 LEUEL 1 RECORD 0000 

VWWWWWVW’o 

vwwwwvwwv 

VWWWWWVWb 

■WWWWWWW fc 


CON IL GENERATORE DI 
CARATTERI 

SCORE 0000 LEUEL 1 RECORD 0000 

v«v*v*v#%v#v#v# 

•A®'*®»®*®*®’*®»®»®»,®»®»®.®»,®» 

©©©©©©©©©©©©©©© 
©©©©©©©©©©©© © © © 


Figura 1. Harcì-copy del video sia senza 
che con generatore di caratteri. 


(Score). 

450 - Lancia la routine in linguaggio 
macchina del gioco. 

460 - Controlla la variabile L di ri¬ 
torno dalla routine in linguaggio 
macchina. Se tale variabile è uguale 
a 255 vuol dire che avete superato 
tutti i 5 livelli di gioco ed il program¬ 
ma salta alla riga 700 dove lo ZX si 
congratula con voi. 

470-500 - Segnala la non riuscita del 
gioco e chiede se volete riprovare 
con una nuova gara. 

510-540 - Cancella il video e fa ripar¬ 
tire la routine in linguaggio macchi¬ 
na per una nuova gara. 

700-750 - Congratulazioni in caso si 
riescano a superare tutte e cinque i 
livelli di gioco. 

1000-1001 - Salvataggio e Autostart 
del programma. ■ 


Listato 2. Caricatore per linguaggio macchina che 
deve essere impiegato da chi non usa il generatore di 
caratteri con i codici de! dump I. 


LISTATO 

CARICATORE 

GENERATORE 


DEL L/M SENZA 
DI CARATTERI 


IL 


1 REM (SEGUITA DA 367 CARATTE 

RI) 

100 FOR 1 = 16514. TO 16880 
110 INPUT A 
120 POKE I,A 

130 PRINT I;" = “;PEEK I 

14.0 IF PEEK 164.18=2 THEN SCROLL 

150 NEXT I 


Listato 3. Caricatore per linguaggio macchina che 
deve essere impiegato da chi intende utilizzare il gene¬ 
ratore di caratteri della B & V Interface con i codici del 
dump I + i codici del dump 2. 


CAICATORE DEL L/M CON ROUTINE 
PER GENERATORE DI CARATTERI 


1 REM (SEGUITA DA 4-4-8 CARATTE 

RI) 

100 FOR 1 = 16514- TO 16961 
110 INPUT A 
120 POKE I,A 

130 PRINT I;“ = ";PEEK I 

14.0 IF PEEK 16418=2 THEN SCROLL 

150 NEXT I 


43 















Tutti musicisti 
con lo Spectrum 
48 Kbyte 


di TTsoft 

I l TTmusic è un programma 
della categoria dei Music 
Composer. Permette di com¬ 
porre brani utilizzando direttamen¬ 
te le ultime due file di tasti come la 
tastiera di un pianoforte, osservan¬ 
do sul pentagramma, secondo la 
normale notazione musicale, la tra¬ 
scrizione fedele della musica esegui¬ 
ta. 

La durata delle note può essere im¬ 
postata entro l’intervallo di 1/1 - 
1/16 e la tonalità entro la completa 
estensione in ottave disponibile sul¬ 
lo Spectrum. È inoltre possibile 
compiere le quattro operazioni fon¬ 
damentali di editing ossia visualiz¬ 
zazione, modifica, inserimento e 
cancellazione in ogni punto della 
composizione oltre a funzioni ag¬ 
giuntive tipo Append, Back Space e 
Goto, utili per proseguire un brano 


interrotto e per posizionarsi rapida¬ 
mente nel punto desiderato. 

Vengono automaticamente ese¬ 
guite operazioni di scorrimento a 
destra e a sinistra del pentagramma 
ogniqualvolta ciò si renda necessa¬ 
rio, mentre sullo schermo è sempre 
visibile l’intera gamma dei comandi 
disponibili, con quello in esecuzione 
evidenziato. Poiché le note vengono 
immediatamente eseguite, sia du¬ 
rante l’immissione che durante l’edi¬ 
ting, è pure possibile comporre un 
brano ad orecchio osservando poi la 
relativa notazione musicale risul¬ 
tante, con indubbio ed efficacissimo 
effetto didattico. Terminata la fase 
iniziale, attraverso una successiva 
opzione, è possibile suonare quanto 
composto a velocità reale variando 
a piacere il tempo o la tonalità anche 
durante l’esecuzione stessa. Il risul¬ 
tato di queste alterazioni può essere 
osservato anche graficamente su 
due scale tipo metronomo recanti 
l'indicazione in italiano dei parame¬ 
tri (non dimentichiamo che l’italia¬ 
no è sempre stata la lingua ufficiale 
nel campo musicale per cui anche 
composizioni straniere portano 
scritte come “adagio”, “con fuoco 
...” ecc.). 


Sono inoltre disponibili le consuete 
funzioni di salvataggio e ricarica¬ 
mento su nastro per conservare i 
brani meglio riusciti. 

Qualche breve commento al pro¬ 
gramma. 

Tutti i caratteri che servono per di¬ 
segnare le note sono UDG e, sia la 
composizione grafica della nota 
stessa che la sua posizione sono me¬ 
morizzate in una matrice. Una se¬ 
conda matrice serve invece a conte¬ 
nere le note immesse dall'esecutore 
(sotto forma di caratteri: uno per la 
tonalità, l’altro per la durata) ed una 
terza matrice viene dimensionata su 
misura al momento del salvataggio, 
in modo da rendere minima la quan¬ 
tità di dati trasferita su nastro. 

L’inconveniente di quest’ultimo 
sistema consiste nel fatto che la mas¬ 
sima dimensione della matrice stes¬ 
sa viene ad essere dimezzata, tutta¬ 
via, nel caso presente, la capacità 
disponibile rimane comunque note¬ 
volissima e sicuramente esuberante 
anche per composizioni molto lun¬ 
ghe. 

Qualche indicazione sull’uso del 
programma: 

le ultime due file di tasti rappresen¬ 
tano rispettivamente i tasti bianchi 


<- / ent las t .. 15 





Ottava.. 1 


(-f / 


Figura 1. Così appare lo schermo durante l’editing. 



— TEMPO — 
R PRES 


MOD. 


LRR . 


Figura 2. In fase di esecuzione si possono 
variare tempo e tonalità. 
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TTmusic 


Listato I. // programma TTmusic. 


2 REM — TTMUSIC - 

3 REM- 

7 GO TO 9160 

996 DEF FN ••(é)-CHR* 21*CHR« 1*CHR« 22+CHRft **CHR* 1*CMR« 19«CHR4 1*~ 


1000 REM PLAY 
1010 FOR 1-1 TO n 

1020 BEEP l/CODE f«(2.i),C0DE f*M . i >- 128+lon 

1025 IF XNKCVtO"” THEN CO SUB 1600 

1030 NEXT I 

1040 RETURN 

1500 REM URITE 

1510 LET noi#•CODE f*(1.b>-128 
1520 LET cnt-notf-INT <nol#/12>*12 

1530 LET durl-VAL "12.3...4.5.6‘*<C0DE f«(2.b>) 

1540 LET p-(b-lop>*2 

1550 LET 1-7-VAL o* ( c nt* 1. 1» < not*.» 11 > > 

1560 LET col«VAL o*<cnt* 1.3*<not*>11>> 


1570 PRINT BRIGMT 8. OVER ItAT l.pi•»*<dur 1.cni. TO 2>iAT I♦ 1.pi«*(dur1.c 
nt.3 TO 4>iAT 1*2.px»t(dur1.cnl.5) 

1580 RETURN 

1600 REM DISP VALUES 

1610 IF lNKEY*-"3" THEN IF p3>3 THEN GO SUB 1710« LET ton-lon*1i LET 
p3-p3-1* GO SUB 1710 

1620 IF INKEYt-"b" THEN IF p3<18 THEN GO SUB 1710» LET lon-lon-H LET 
p3-p3«-1i GO SUB 1710 

1630 IF INKEY*-"1" THEN IF p2<18 THEN GO SUB 17201 LET 1-1*1.161 LET 
p2-p2*1 * GO SUB 1720 

1640 IF INKEY*-"p" THEN IF p2>3 THEN GO SUB 1720» LET t»t/1.16i LET p 
2-p2-1i GO SUB 1720 
1700 RETURN 

1710 PRINT INVERSE 11 OVER 1|AT p3.8f"<—"« RETURN 
1720 PRINT INVERSE 11 OVER ItAT p2,20i”~>"i RETURN 
2000 REM PAGE 


2010 IF a>-top ANO a<-top*14 AND NOT tor THEN GO TO 2070 
2020 LET top-n-3 OR a<4 
2022 PRINT AT 1.0.. 

2025 FOR i-1 TO 5 

2026 PRINT "_- 

2027 NEXT i 

2028 PRINT ...... 

2030 FOR b-top TO lop+14 
2040 IF b>n THEN GO TO 2075 
2050 GO SUB 15001 REM Uriti 
2060 NEXT b 
2065 GO TO 2072 

2070 IF flaq AND NOT tor THEN GO SU» 1500 
2075 FOR i-3 TO 6i REM Evidinci 

2080 PRINT BRIGMT Oi OVER 1|AT i, latti" "i BRIGHT 1|AT l. (a-top) *Zi" M 
2085 NEXT i 

2088 LET latl»(a-lop>*2 • 

2090 RETURN 
3000 REM ED1T 
3010 CLS 

3030 LET !a«ld-16 
3040 LET p-Oi LET a*«“" 

3050 LET latl-pi LET flag-pl LET for-pi LET latlc-p 
3052 LET a-li LET top-a 

3055 PRINT AT O.Oi PAPER 5t" <- / mt "lAT 0.l6|"la«t ... ». 


3056 PRINT AT 19.0.AT 19.Ol“Ottavai "» BRIGHT li" "|(oct-127»/12f* »| 
BRIG HT 0|» "I PAPER 3i" ( A /v> » 

3057 PRINT PAPER 8|AT 0.16.AT 0.16t"la«l .. "in 

3060 PRINT AT 11,Ol" "l INVERSE 11"C0MMAND8"|AT 11.161» VALUES" 

3070 PRINT - Go lo.."'" Insirt"*» Add"."0 J K K K. Mod.( 

N G H"*" End"’" Dilata "."1 2 3 4 5" 

3071 LET x-3* LET y-30i LET 1-76» LET h-62» GO SUB 6950 

3072 LET x-123i LET 1-1121 GO SUB 6950 
3075 GO SUO 2022 

3080 REM B E G I N 

3090 IF latte THEN PRINT AT latte.1| OVER 11» » 

3095 LET for—01 LET flag-for 
3100 IF NOT n THEN GO TO 3240 
3110 IF a>n THEN LET a«n 
3120 PRINT AT 0.24ia. 

3130 IF a*-"" THEN PAUSE Ol LET 16-INKEY* 

3135 PRINT AT 19.20. 

3160 REM Play 

3170 IF CODE 16013 THEN GO TO 3220 
3175 LET a»-— 

3180 LET a-a+1t IF a>n THEN LET a-n 
3190 LET noti-CODE f«(1,*)-12» 

3200 BEEP 1/CODE f6(2.a),not* 

3205 GO SUB 2000 

3210 IF a-n THEN PRINT AT 19.20l BRIGHT 1|"END of PLAY" 

3220 REM ADD 

3230 IF !*<>“•" AND a*-"" THEN GO TO 3320 
3240 PRINT FN a«(14) 

3242 LET a*»"1" 

3245 LET lattc-14 
3250 LET a-n 
3260 LET dur-4 
3270 GO SUB 5000 

3290 IF f1afl-1 THEN GO SUB 15701 LET f»(2.a)-CHR« <dur)s LET b-al GO SU 
8 15001 GO TO 3270 

3300 IF flag-2 THEN LET a=a*1i LET f*(1.a)-CHR6 (t*ocl)i LET f«(2.a)-CH 
Rt (dur)l LET b»ai LET n-ai GO SUB 2000: GO TO 3270 
3310 PRINT OVER HAT latte.Il" 

3320 REM MISCELE. 

3332 IF »•-"*" THEN LET at-""l PRINT FN a«(12)i LET lattc-12: INPUT "Go 
to nota.. “iai IF a<-n THEN GO SUB 2000 
3340 IF »*-"•" THEN RETURN 

3350 IF CODE i*-8 THEN LET a6-""l LET a-a-1 OR a=11 GO SUB 2000 
3360 REM MODIFY 

3370 IF i•<>"q" THEN GO TO 3440 
3375 GO SUB 5300 

3380 PRINT FN a«(15)t LET lattc-15 

3390 LET for-1 

3400 GO SUB 5000 

3410 LET b-ai GO SUB 1500 

3420 IF f1ag«1 THEN LET f«(2.a)-CHRt (dur) 

3430 IF flag-2 THEN LET f*<1.a)-CHR* (l*oct)i LET f*(2,a)-CHR* (dur) 
3435 GO SUB 1500 
3440 REM INSERT 

3450 IF I»<>"1" THEN GO TO 3540 
3455 GO SUB 5300 

3460 PRINT FN a«(13)i LET lattc>13 
3465 LET a*-"" 

3470 LET for-1 

3480 FOR 1-n TO a 8TEP -1 


(ultima) e neri (penultima) del pia¬ 
noforte (dal Do al Si) per cui ovvia¬ 
mente i semitoni tra il Mi e il Fa(f)e 
tra il Si e il Do (j) non suoneranno. 
Per passare all’ottava superiore o 
inferiore si usano i tasti di controllo 
cursore (quelli con le freccine), men¬ 
tre i comandi di controllo vanno da¬ 
ti in minuscolo ed hanno le seguenti 
funzioni: Goto porta il cursore alla 
nota desiderata; Insert inserisce la 
successiva nota tra il cursore c quel¬ 
la precedente; Add prosegue rag¬ 
giunta al termine del brano (per ri¬ 
prendere composizioni interrotte); 


Mod modifica la tonalità o la durata 
della nota in esame; End ritorna al 
menu principale; Delete cancella la 
nota sotto al cursore. Usando l’En- 
ter durante l’edit è possibile spostar¬ 
si in avanti suonando man mano le 
note che si trovano con i relativi 
valori e durate, mentre con <si re¬ 
trocede di una posizione. La nota in 
esame è quella evidenziata, e tutte le 
operazioni vengono eseguite rispet¬ 
to ad essa. La durata si imposta con i 
tasti I ... 5 e rimane valida fino a 
quando non venga modificata per 
mezzo degli stessi tasti; il valore ini¬ 


ziale di default è di 1/4. 

Per il resto non ci sono particolari 
problemi né nella trascrizione del 
programma né nell’esecuzione. At¬ 
tenzione solo ad impostare in modo 
grafico tutti i caratteri maiuscoli (es¬ 
clusi quindi "o” e “#") presenti tra 
le linee 9270 e 9300 in quanto sono 
proprio quelli che saranno utilizzati 
per comporre le note. Il programma 
andrà salvato con un Save “xxxx” 
Line 9000, oppure con un Run9800. 
Ed ora ... accordate lo Spectrum e 
musica per tutti! 
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Seguito listato TTmusic. 


3490 LE T f*( 1)0 + 1 )-f»M)(l>s LET f t<2> (»41 >-f»<2) ( I > 

3300 NEXT I 
3310 LET n-cn-1 
3320 00 SUB 3000 

3330 LET f*M><«>-CHR6 lt*oct>» LET f«<2><a>-CHR« (duri 
3333 GO SUB 2000 
3340 REM DELETE 

3330 IE I6<>"d" THEN GO TO 3630 
3333 GO SUB 3300 

3360 PRINT FN a6<17>* LET latlc-17 
1 3363 LET «•-"" 

3370 LET forali REM Forca page 
3360 FOR l-« TO n-1 

3390 LET LET f«(2> li >-fft<2> < i-1> 

3600 NEXT I 
3610 LET n-n-1 
3620 LET b-a 
3623 GO 6UB 2000 
3630 GO TO 3060 
3000 REM INPUT 
3010 LET 1-13 

3020 PRINT AT 19, fl» BRIGHT 1» M "H OC t-127 » /12» » " 

3030 PRINT AT 0,24ia. 

3040 PAUSE 0« LET 16-INKEY6» IF 16-"" THEN GO TO 3040 
3030 LET fi«g-0 

3070 IF i*-"7" THEN LET oct-oct*12« GO TO 3020 

3060 IF 1•-"6" THEN LET oc foci-12» GO TO 3020 

3090 IF OR IB>"3" THEN GO TO 3160 

1 3100 LET dur-COOE •* 12469P"(VAL l*>-48 

3110 LET fUg-1 
3120 LET p I-12*VAL iB*3 
3130 FOR J-11 TO 16 

3140 PRINT OVER liAT j.laoldi" "i BRIGHI 1|AT J.pli" 

3130 NEXT j 
1 3133 LET latld-pl 

3160 IF |6<"b" OR »•>"*" THEN RETURN 

3170 LET l-CODE "743/Z68/«//»9//// 1//3/2/0" 1C0DC »6-97>-47 

3160 IF NOT t THEN RETURN 

5190 LET M*g-2 

3200 BEEP .4.t«oct-128 

3210 RETURN 

3300 REM AC0UST1C 

3310 FOR 1-1 TO 3 

3320 BEEP .003,121 BEEP .003.17 

3330 NEXT 1 

3340 RETURN 

6000 REM PLAY PARAM. 

6010 CL8 l INK 9 

6020 LET x-481 LET y-30» LET h-120» LET 1-7» GO SUB 6930 
6030 LET k- 192» LET y-30» GO SUB 6930 

6040 LET »-4i LET y-4l LET 1-100» LET h-160l GO 8UB 6950 
6030 LET k- 1441 GO SUB 6930 

6130 FOR 1-3 TO 16 8TEP 2« PRINT OVER 1|AT ».6»"-"|AT ».24|"- 
6140 PRINT AT 1,2| BRIGHT 1»" TONAL. "iAT 1.20l" TEMPO “ 

6130 PRINT AT 3.3| BRIGHT 1|" • "» AT 3.26i PAPER 2i"PRES" 

6160 PRINT AT 10.3i BRIGHT li" - "»AT 10.26t PAPER 4fM0D." 

6170 PRINT AT 17.3l BRIGHT 1*” b "»AT 17,26i PAPER 3t**LAR." 

6200 INPUT "Start fro» note <1> "l LINE 16 
6203 IF 1*-"" THEN LET t*»"1" 

6203 LET 1-VAL I» 

6300 PRINT 41|AT 0.0»"Set desired value».then preto 
6900 GO SUB 17101 GO SUB 1720 

6903 PAUSE 0» IF 1NKEY60CHR6 13 THEN GO SUB 1600» GO TO 6903 
6907 PRINT N1»AT 0,0.."Modify para-eteri «% you llke..." 

6910 GO SUB 1000 
6920 RETURN 
6930 REM BOX 

6960 PLOT M.y» DRAW O.h» DRAM 1.0» DRAW O.-h» DRAM -1.0 

6970 RETURN 

7000 REM BAVE 

7010 INPUT "Non* ... “li* 

7020 01M g«< n«1,2) 

7030 FOR 1-1 TO n 

7040 LET g6(l)-r«<1.lff6<2.i> 

7030 NEXT i 

7033 LET g»(n*1)-"a" 


7060 SAVE l» DATA g*<>* SAVE tt DATA g*< > 

7070 PRINT "RIPOSI!IONA PER VERIFICA" 

7060 VERIFY it DATA g»< ) * VER IF Y t« DATA 9*0 

7090 RETURN 

7200 REM LOAD 

7210 INPUT "Noia* ... “li* 

7220 LOAD |4 DATA g«<> 

7230 FOR n-1 TO 1*6 

7240 IF 9*<n)<>"B " THEN LET 1.n)-g«(n.1)» LET f*<2.n)=g*(n,2>« NEXT 
n 

7230 LET n-n-1 
7260 RETURN 
9000 REM M A I N 

9003 PRINT FLASH li" PLEASE WAIT". 

9010 BORDER 6 
9020 DIM f• (2.3000) 

9030 DIM o«<12.4) 

9040 DIM —6(3.4.31 

9030 FOR J-1 TO 4» FOR »-1 TO 3 

9060 READ a6(1.J> 

9070 NEXT 1» NEXT J 

9060 FOR i-USR TO USR "•"♦111 

9090 READ a» POKE ì.a 

9100 NEXT I 

9110 FOR 1-1 TO 12 

9120 READ o6(1) 

9130 NEXT I 
9140 LET n-0 

9130 LET oct-127» LET t-1» LET ton-0 
9133 LET p3-10» LET p2-p3 

9160 CL8 » PRINT BRIGHT 1*“ - MUSIC - 

9170 PRINT AT 7.0l" Edit . N«w «ong .. 2. Play. 

4'"*" Load.6 "** m Sava .. 

9160 INPUT "1 choosa .... "| LINE 16 
9190 IF lt-"1" THEN GO SUB 3000 

9200 IF 16-"2" THEN INPUT "Ara you ahura ? M » LINE 16» IF iTHEN 

LET n-0» GO SUB 3000 

9210 IF 1•-“4” THEN GO SUB 6000 

9213 IF I •-**6“ THEN GO SUB 7200 

9216 IF i*-"9" THEN GO SUB 7000 

9220 GO TO 9160 

9230 REM DATA 

9260 REM »• 

9270 DATA "o"."J".“K N N~. *K N G"."K N H 


9280 DATA "A B".“C D"."E F N"."E F G", 

"E F H" 

9290 DATA "oi"."JB"."K4N"."K4N G M . n K§N H M 
9300 DATA "ALBM","CLDM","ELFM" 

."ELFMG"."ELFMH" 

9310 REM AB 

9320 DATA 0.a,a.a.a.BIN 00111000.BIN 01000100.BIN 00111001 
9330 DATA DIN 01000100.BIN 00111000.0.a.a.a.a,a 
9340 REM CD 

9330 DATA 0.a.a.a.a.BIN 00111000.BIN 01111100.0 
9360 DATA BIN 01111100.BIN 00111000.0.a.a.a.a.a 
9370 REM EF 

: NEXT i 9360 DATA O.a.a.a.a.BIN 00111000.BIN 01111100.0 

9390 DATA BIN 01111100.BIN 01111000.BIN 01000000.a.a.a.a.a 
9400 REM G 

9410 DATA BIN OlOOOOOO.a.a.BIN 01000100.BIN 01001000.BIN 01110000.BIN Oli 
00000.BIN OIOOOOOO 
9420 REM H 

9430 DATA BIN 01000000.BIN 01000100.BIN 01001000.BIN 01110000.BIN 0110010 
0,BIN 01001000.BIN 01110000.BIN 01100000 
ENTER» 9440 REM 1 

9430 DATA O.a.BIN 00111000.BIN 01000100.a.a.BIN 01111000.BIN OIOOOOOO 
9460 REM J 

9470 DATA O.a.BIN 00111000.BIN 01111100.a.a.SIN 00111000.0 
9460 REM K 

9490 DATA O.a.BIN 00111000.BIN 01111100.a,a,BIN 01111000.BIN OIOOOOOO 
9300 REM LM 

9310 DATA 0.a.a.BIN 00100100,a.BIN 01111110.a.BIN 00100100 
9320 DATA a.BIN 01111110,a,BIN 00100100.a.0.a.a 
9330 REM N 

9340 DATA 64.a.a.a.a.a.a.a 
9330 REM HASH TABLE 

9360 DATA "0321". "0343". "0412". "0434". " 1421" ,"1312", " 1334*', "2321", "2343", 
"2612"."2634"."3621" 

9600 SAVE "TT-ualc" LINE 9000» BAVE "TT-utle" LINE 9000 
9620 VERIFY "TT-utic"» VERIFY “TT-u»lc" 


Archivio per Spectrum 

Nell’articolo pubblicato nel numero 24 (Gennaio 1985), siamo incorsi in due 
errori. Il primo riguarda il nome dell’autore che non è Natale Carloni, ma Natale 
Carioni. 

Inoltre il terzo capoverso di pag. 71 va sostituito con il seguente: 

‘‘Il listato di Archivio 1 è identico a quello di Archivio meno le linee da 10 a 120, da 
140 a 180, e con le seguenti modifiche”: 

130 CLEAR 32767: BORDER 6: PAPER 6: INK 0: CLS 

Segue il testo originale di pag. 71, con la linea 270. 
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Cod. 409 B Pag. 270 Lire 34.000 


Rita Bonelli 

Commodore 64 
il basic 


Il Capitolo 5 è dedicato alla stam¬ 
pante. Nel Capitolo 6 si parla della 
costruzione del programma. 

Nel Capitolo 7 vengono passati in 
rassegna i codici e i numeri del cal¬ 
colatore. Il Capitolo 8 è dedicato alla 
memoria. Nel Capitolo 9 si tratta de¬ 
gli errori. Completano il libro, l'Ap¬ 
pendice A dedicata alla tastiera e 
l’Appendice B all'argomento del BA¬ 
SIC compilato. 

Tutti i programmi esempio riportati 
nel libro sono disponibili a richiesta 
su floppy disk. 

Cod. 348 D Pag. 316 Lire 26.000 




Totale 


GRUPPO 


EDITORIALE 


JACKSON 
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Condizioni di pagamento con esenzione del contributo spese di spedizione 
□ Allego assegno della Banca □ Allego fotocopia del versamento 
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Nome 


Cognome 

Via 


Cap Città 

Prov 

Data Firma 

Spazio riservato alle Aziende Si richiede l'emissione di fattura 

ORDINE 


MINIMO 

Pallila 1V A 1 1 1 1 1 1 1 1 1 1 1 1 1 

L. 50000 


Rita Bonelli 
Luciano Pazzucconi 
Fabio Racchi 
Giovanni Valerio 

Commodore 64 
la grafica e il suono 

Ogni argomento viene spiegato e ac¬ 
compagnato da numerosi esempi 
commentati. Nel libro sono listati 
moltissimi programmi che sono regi¬ 
strati sulla cassetta allegata. 

Nel Capitolo 1 si tratta del video, del¬ 
la tastiera e della grafica in modo 
carattere. Il Capitolo 2 è dedicato al¬ 
la grafica e ne approfondisce tutti gli 
aspetti. Il Capitolo 3 tratta degli spri- 
te.. Nel Capitolo 4 viene trattato l’ar¬ 
gomento del suono. Completano il li¬ 
bro tre appendici: i registri del VIC II 
e del SID e le frequenze delle note 
musicali. 


Un’accurata esposizione del lin¬ 
guaggio BASIC, accompagnata da 
numerosi esempi. 

Nel Capitolo 1 si ha una panoramica 
dei diversi argomenti. Il Capitolo 2 è 
dedicato ai linguaggio. Nel Capitolo 
3 si approfondisce l’uso della tastie¬ 
ra e del video. Il Capitolo 4 fornisce 
le informazioni necessarie per usare 
disco e cassetta per memorizzare 
programmi. 
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Rita Bonelli 

Commodore 64 
i file 

Questo libro tratta in maniera com¬ 
pleta e precisa la gestione dei file su 
cassetta e su disco. 

Oltre a brevi programmi esempio, ri¬ 
portati per spiegare l’uso delle istru¬ 
zioni, il libro contiene cinque pro¬ 
grammi per creare e gestire un archi¬ 
vio di dati: SEQUENZIALE su casset¬ 
ta, SEQUENZIALE su disco, RAN- 
DOM su disco, RANDOM/USER su 
disco, RELATIVO su disco. 

Cod 400 B Pag. 173 Lire 17.000 
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Un gioco di strategia 
per sfidare il vostro 
Commodore 64 


di Sergio Borsoni 

F in da quando, nella prima 
metà del secolo scorso, il 
barone von Kempelen mo¬ 
strava a tutta Europa ed anche oltre 
oceano il suo automa denominato il 
Turco , il gioco degli scacchi ha sem¬ 
pre avuto un posto di preminenza 
nell’ambito della cibernetica. Non a 
caso da alcuni anni si svolgono cam¬ 
pionati mondiali di scacchi tra ela¬ 
boratori ed anche ogni home com¬ 
puter che si rispetti ha la sua cartrid- 
ge che lo trasforma in un esperto 
avversario nel nobil giuoco. 

Sono tuttavia convinto che anche 
tra i giochi meno nobili non ve ne sia 
uno che non sia stato adattato ad un 
programma per computer, e proba¬ 
bilmente hanno seguito la medesima 
sorte anche quelli senza pretese, per 
i quali sarebbe sufficiente un foglio 
di carta ed una matita. Questo per¬ 
ché in ogni caso incuriosisce ed affa¬ 
scina la capacità della macchina di 
valutare situazioni diverse e prende¬ 
re decisioni secondo una logica che 
non si allontana di molto dal nostro 
modo di tagionare. 

Prendiamo ad esempio il gioco dei 
16 bastoncini. Per la sua semplicità 
non sarebbe giustificata la trasposi¬ 
zione sul video, se non proprio per il 
fatto che costituisce un facile banco 
di prova per un programma che for¬ 
nisca al computer una strategia vin¬ 
cente. 

Ignoro il nome del gioco, se mai 
ne possiede uno. Credo si sia visto 
giocare sui tavoli di un bar in un film 
I ambientato a Marienbad, per cui si 
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potrebbe chiamare il gioco di Ma¬ 
rienbad, ma poiché chi rimane con 
l’ultimo bastoncino perde, ho prefe¬ 
rito chiamarlo L'ultimo perde. 

Si dispongono 16 bastoncini, di soli¬ 
to si usano dei fiammiferi, in una 
disposizione piramidale, prima 1, 
poi 3, poi 5 ed infine 7. Ogni concor¬ 
rente a turno toglie quanti bastonci¬ 
ni desidera ma solo da una fila e 
procedendo da un lato. Non è am¬ 
messo pertanto togliere un bastonci¬ 
no centrale fintanto che non sono 
stati tolti quelli laterali. Lo scopo 
del gioco consiste nel far rimanere 
l’avversario con l’ultimo bastonci¬ 
no. 

La facilità del gioco è dovuta in mas¬ 
sima parte all’esiguità delle combi¬ 
nazioni per cui non sarebbe impossi¬ 
bile studiarle tutte per esteso. In 
questo modo ci si renderebbe conto 
che il gioco non è equo, nel senso che 
i due avversari non hanno le stesse 
probabilità di vittoria. Sorprenden¬ 
temente chi inizia, a gioco corretto, 
non ha alcuna possibilità di vincere. 
La strategia insita in un programma 
per computer consiste nel prevedere 
le proprie mosse e quelle dell’avver- 
sario secondo sequenze di lunghezza 
variabile e dipendente dal livello di 
difficoltà. Ogni sequenza si sviluppa 
da una situazione di partenza e ge¬ 



nera una determinata configurazio¬ 
ne alla quale viene associato un pun¬ 
teggio in base a regole soggettive. 
Naturalmente il computer sceglierà 
la mossa corrispondente al massimo 
punteggio, la quale conduce alla si¬ 
tuazione più favorevole. In questo 
particolare gioco i criteri sono lieve¬ 
mente diversi. Infatti, per ogni con¬ 
figurazione dei bastoncini, si può di¬ 
re se essa è vincente o perdente e non 
è necessario attribuire un punteggio 
per graduare la bontà di una mossa. 

Il computer esamina tutte le va¬ 
rianti con la profondità di una mos¬ 
sa completa, cioè valuta tutte le pro¬ 
prie mosse e per ciascuna le possibili 
risposte deH’avversario. Appena 
viene individuata, esegue la mossa 
che conduce a una posizione vincen¬ 
te, oppure, se non esiste possibilità 
di vittoria, esegue una mossa in mo¬ 
do casuale. 

Poiché chi inizia è svantaggiato, il 
programma estrae a sorte a chi spet¬ 
ta il primo tratto. Non ci sono sot¬ 
terfugi, è una regolare sfida a testa o 
croce. Sul video appare anche la mo¬ 
neta. Per indicare i bastoncini da 
togliere si controlla un indice con i 
tasti di funzione e si esegue la mossa 
con il tasto Return. Nel programma 
non mancano le spiegazioni, tutta¬ 
via è preferibile ripetere che il tasto 















FI sposta l’indice in alto, F3 a sini¬ 
stra, F5 a destra e F7 in basso. Non 
vengono accettate risposte non leci¬ 
te. Posizionato l'indice su un ba¬ 
stoncino, viene tolto quello stesso e 
tutti gli altri alla sua destra. Non è 
possibile correggere la mossa dopo 
che è stata eseguita premendo Re¬ 
turn. 

Poiché chi inizia non ha alcuna pos¬ 
sibilità contro un avversario impla¬ 
cabile, si è fatto in modo di lasciare 
una piccola scappatoia per rendere 
l’esito più incerto ed il gioco più 
avvincente. Nonostante ciò, finché 


non avrete accumulato una suffi¬ 
ciente esperienza, non vi sarà tanto 
facile battere il computer. Buon di¬ 
vertimento. 


Principali routine 

10-80 - Limita la memoria disponi¬ 
bile per il BASIC per riservare un'a¬ 
rea ai caratteri grafici programmati, 
inizializza la variabile V che costi¬ 
tuisce la base per i registri che con¬ 
trollano le animazioni e stampa il 
titolo del programma. 


110-190 - Inizializza l’animazione 
grafica che servirà da indice per la 
scelta della mossa, il vettore A(), con 
le locazioni dei 16 bastoncini e la 
variabile LC usata per trovare la lo¬ 
cazione nella memoria del colore 
corrispondente ad una determinata 
posizione sullo schermo. 

200-290 - Menu. 

300-480 - Spiegazioni riguardanti i 
tasti da usare per l’indicazione delle 
mosse. 

1000 - Inizializza il vettore R() con il 
numero dei bastoncini contenuti in 
ogni fila. 

1010-1210 - Viene sorteggiato il con¬ 
corrente che inizia il gioco. Sul video 
appare una animazione grafica che 
simula il lancio di una moneta. Il 
risultato è T = testa o C = croce. 
1220 - Disabilita l’animazione e pu¬ 
lisce lo schermo. 

1230-1280 - Pone i bastoncini sullo 
schermo ed abilita l’animazione che 
serve da indice. 

1300 - Controlla che ci sia più di un 
bastoncino sullo schermo. 

1330-1400 - Accetta la mossa del 
concorrente e muove l’indice in ri¬ 
sposta ai tasti di funzione. 

1410-1440 - In base alla posizione 
dell’indice aggiorna la disposizione 
dei bastoncini sullo schermo ed il 
vettore R(). 

1500-1540 - Esegue la prima mossa 
per il Commodore 64 in maniera 
casuale. 

2000-2090 - Esegue una mossa per il 
C 64 quando non sia quella di aper¬ 
tura del gioco. Il vettore R() viene 
trasferito in RR() che verrà usalo 
per studiare la configurazione di ba¬ 
stoncini conseguente ad ogni possi¬ 
bile mossa. 

2100-2250 - Studia le possibili rispo¬ 
ste dell’avversario. 

2260-2300 - Esegue sullo schermo la 
mossa del computer. 

3000 - Disabilita l’animazione grafi¬ 
ca, pulisce lo schermo e ripristina il 
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Listato 1. Il programma L'ultimo perde. 

10 REM L'ULTIMO PERDE 
20 REM ****************** 

23 P0KE52,48:P0KE36,48 

30 POKE53280/6!PRINTCHRSC 142):V*33248 

40 PRINT"»JBffi8Mflffi| ,, TABC 8)-r-» " 

30 PRINTTABC 8>”| "SPCC 20) * | " 

60 PRINTTABC 8 > "I L’ULTIMO PERDE |" 

70 PRINTTABC8)” | "SPCC20)"|" 

80 PRINTTABC8) Mu J " 

1 10 FORJ =0TO3 s POKE2040+J , 192* J : POKEV+39*J ,7: NEXT 
120 FORQ*12288T012542:REAOBYiPOKEQ,BYXNEXT 
130 01MAC 16)sLC=54272 

140 AC1>«1283:AC2)=1480*A<3>*1483*A<4)»1486:AC5)*1677 
130 A< 6 ) * l680 : A< 7 ) * 1683 : AC 8 > » 1686 : A C 9 > *= 1689 s AC 10>»1874 

160 AC 1 I )- 1877 :A< 12)31880 :AC 13>«1883:AC 14)=1886iA< 15)*1889 :A< 16)*1892 
180 PRlNT- ffl UM lM H < PER INIZIARE PREMI UN TASTO. > " 

190 GETKS:IFKS=""THEN190 
200 REM .♦** MENU *** 

2 10 rpihrr\j5MHHS premi *- 

220 PRINT’’* 1. PER LE SPIEGAZIONI" 

230 PRINT"B 2. PER GIOCARE" 

240 PRINT"H 3. PER FINIRE" 

250 GETK*:IFK$=”"THEN250 
260 IFK**"1"THEN300 
270 IFK*3"2"THEN1000 
280 IFK£«"3"THEN3000 
290 GOTO250 

3C0 FRINT"fcJBULLO SCHERMO APPARIRANNO 16 BASTONCINI" 

310 PRINT"DISPOSTI SU QUATTRO FILE." 

320 PRINT"IL CONCORRENTE EO IL COMPUTER, A TURNO," 

330 PRINT "TOLGONO QUANTI BASTONCINI VOGLIONO DA" 

340 PRINT"UNA SOLA FILA ED IN MOOO CHE SIANO UNO" 

343 PRINT-VICINO ALL’ALTRO." 

350 PRINT"PERDE CHI RIMANE CON L’ULTIMO BASTONCINO" 

360 PRINT-PER IhDICARE LA MOSSA USARE I TASTI DI" 

370 PR1MT’’FUNZ IONE: " 

380 PRINTTABC 12) "F 1 * ALTO" 

390 PRINTTABC 12)"F3 = SINISTRA" 

400 PRINTTABC 12)"F5 * DESTRA" 

410 PRINTTABC 12)"F7 = BASSO” 














Seguito listato L'ultimo perde. 

420 PRINT"*PER ESEGUIRE LA MOSSA PREPERE:»" 

430 PRINTTABC 12) “ i-1 " 

440 PRIMTTABC 12>"I RETURN I" 

450 PRIMTTABC 12 > -1 -- 1 * 

4S0 PRINT"MPRA PREMI UN TASTO PER CONTINUARE.” 

470 GETK*:!FK*=”"THEN470 
480 GOTO200 

1000 RC 1 ) = 1 : RC 2 > =3 : R< 3 ) =5 : RC 4 > =7 

1010 PRINT"LISORTEGGIAMO CHI OEVE INIZIARE...” 

1020 PRI NT "SCEGLI TESTA O CROCE? BATTI <T> O CO.»” 

1030 GETK*:IFK*=”“THEN1030 

1040 IFK*="T"THENPRINT”BENE, HAI SCELTO TESTA.“:S1 = 1 : GOTO 1070 

1050 IFK*="C"THENPRI NT "BENE, HAI SCELTO CROCE.":S1=2 : GOTO 1070 

1060 GOTO 1030 

1070 SO=INTCRND< 1 >*2>+ 1 

1075 FORT =1TO2000:NEXT 

1080 POKEV+21,2:FORJ=2T07:POKEV+J/160:NEXT 
1090 FORI- 1TO20:FORJ =1T03:POKEV+21,2TJ 
1100 FORTUITO 10*1 :tEXT 

1I 10 NEXTJ:POKEV +21, 4 :FORT=1TO10* 1 :NEXTT:NEXTI 

1120 0=2:1FS0=2THENQ=3 

1130 POKEV*21,0 

1135 FORT =1TO2000:NEXT 

1140 PRI NT " W- ' RISULTATO ”J 

1 150 1FS0= ÌTHENF’R 1 NT "TESTA . * : GOTO 1 170 

1160 PRINT"CROCE.” 

1170 IFS1=S0THENPRINT”HHA1 VINTO, INIZI TU.“:GOTO 1200 
1130 PRINT”»HAI PERSO, INIZIO IO.” 

1200 PR I NT » Marna—nmmn CPREMI UN TASTO PER CONTINUARE > " 

1210 GETK*:IFK*=""THEN1210 
1220 POKEV+21 ,0:PRINT"L1" 

1230 FORJ=ITO 16 :FORW=AC J)TOAC J) + 120STEP40 
1240 POKEW, 160 : POKELJ + LC ,8 
1250 NEXTU: NEXTJ 

1260 POKEV + 21,1 :POKEV,250:POKEV+1,104 

1270 XX =250 :YY =104 

1280 FI = 1 : CO=7: IFSO< >S1THEN1500 

1290 REM *** MJOVE IL CONCORRENTE *** 

1300 IFRC 1>+R(2)+RC3>+R<4>> 1THEN1320 

1310 PRINT”»*11 01SP1ACE, HAI PERSO.": G0T03100 

1320 PR INT "ìSìSEGU I LA TUA MOSSA" 

1330 GETK*:IFK*="”THEN1330 

1340 IFK*=CHR*< 133>ANDYY>140THENYY=YY-40:F1=F1-1 : GOTO 1400 
1350 IFK*=CHR*< 134 >ANDXX >120THENXX =XX-24:C0=C0-1:GOTO 1400 
1360 IFK*=CHR*< 135)ANDXX< 220THENXX =XX +24 :C0=C0 +1 : GOTO 1400 
1370 IFK*=CHR*< 136 > ANDYTC 200THENYY=YY+40 : F 1 =F 1 + 1 : GOTO 1400 
1380 IFK*=CHR*< 13 >THEN14 18 
1390 GOTO 1330 

1400 POKEV,XX :POKEV +1,YY: GOTO 1330 

14 10 IFCO< =( 4 -FI 1THEN1330 

1420 U=< 4 -FI >+RC F I ) : IFCO >UTHEN 1330 

1430 N‘J=U-CO+ I : RC F I ) =R< F I )-NU : GOSUB3200 

1440 FORT =1TC2000:NEXT:GOTO2000 

1500 REM *** PRIMA MOSSA DEL C64 *** 

1510 FI = INTC RNOC 1 ) *4 > + 1 : NU = 1 : XX= I54+F I *24 : YY=64 +40*F I 
1520 PRINT"*:CCO LA MIA MOSSA.”:POKEV,XX :POKEV♦1,YY 
1530 FORT =1TO2000:NEXT 

1540 RC FI)=RC F I > - 1 :CO=FI+3 :GOSUB3200:GOTO 1300 
2000 REM *** MUOVE C64 *** 

2010 IFRC 1 3 +RC 2 ) +RC 3 ) +RC 4 > > 1THEN2030 
2020 PRINT"®3RAVO! HAI VINTO.":G0T03100 
2030 FOR 1 = 1T04 : RRC I) =RC I > : KEXT : RX =0 : NX =0 
2040 RX =RX +1 : 1FRX >4THEN2110 
2050 NX=NX+ 1 : IFNX >RRC RX ) THENMX=0 : GOTO2040 


colore del bordo terminando il pro¬ 
gramma. 

3100-3120 - Fa tornare al menu. 
3200-3220 - Cancella uno o più ba¬ 
stoncini dallo schermo. 

3500-3630-Subroutine che valuta se 
una particolare configurazione di 
bastoncini è vincente o perdente. In 


essa i valori di RR() vengono trasfe¬ 
riti in RW() e poi ordinati. 
4000-4310- Valori decimali per defi¬ 
nire la forma delle animazioni grafi¬ 
che che costituiscono l’indice e la 
moneta. Per quest’ultima vengono 
definite tre forme diverse che in ra¬ 
pida sequenza danno l’impressione 


L’ultimo 
_perde 

della rotazione. 

Principali variabili 

V - Locazione di base per i registri 
delle animazioni grafiche. 

J,Q - Variabili di lavoro usate pre¬ 
valentemente nei cicli For-Next. 

BY - Valore decimale letto dalle 
istruzioni Data corrispondente ad 
un byte di memoria. 

A() - Vettore contenente le posizioni 
dei bastoncini sullo schermo. 

LC - Costante che, sommata ad una 
locazione di memoria del video, for¬ 
nisce la corrispondente locazione 
nella memoria del colore. 

R() - Numero dei bastoncini presenti 
in ogni fila. I valori iniziali sono 1,3, 
5, 7. 

SI - Scelta del concorrente per il 
sorteggio a testa o croce. 

SO - Sorteggio del risultato. 1 corri¬ 
sponde a Testa, 2 a Croce. 

XX,YY - Coordinate, in pixel, della 
posizione dell’indice. 

FI,CO - Numero di fila e di colonna 
corrispondenti al bastoncino sul 
quale è posto l’indice. 

NU - Numero di bastoncini tolti in 
una fila in conseguenza di una mos¬ 
sa. 

RR() - Vettore di lavoro sul quale 
vengono trasferiti i valori di R(). 
RX - Indice della variabile RR(). As¬ 
sume i valori da 1 a 4 per la ricerca 
delle mosse possibili. 

NX - Numero di bastoncini che po¬ 
trebbero essere rimossi da una fila. 
MI, M2 - Variabili che contengono 
momentaneamente i valori di RX e 
NX. 

RA, NA - Hanno un significato ana¬ 
logo a RX e NX. Vengono usate per 
studiare le possibili risposte dell’av¬ 
versario. 

RW() - Vettore di lavoro sul quale 
vengono trasferiti i valori di RR() 
nella subroutine 3500 che ha il com¬ 
pito di valutare la posizione che ver¬ 
rebbe a crearsi dopo determinate 
mosse. 

PD - Variabile Flag per significare se 
una posizione è vincente o perdente. 
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Seguito listato L'ultimo perde. 


2060 
2070 
2300 
£030 
2100 
£ l IO 
£120 
£130 
2140 
2150 
2180 
£170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2230 
2290 
2300 
3000 
3100 
3110 
3120 
3200 
3210 
3220 
3500 
3510 
3520 
3530 
3540 
3550 
3560 
3570 
3580 
3590 
3600 
3610 
3620 
3630 
4000 
4010 
4020 
4030 
4040 
4050 
4060 
4070 
4080 
4090 
4100 
4 1 10 
4 120 
4 130 
4 140 
4 150 
4 160 
4 170 
4 130 
4 190 
4200 
4210 
4220 
4230 
4240 
4250 
4260 
4270 
4280 
4290 
4300 
4310 
5000 


M1 «RX t M2*NX : RR< RX ) **RR< RX > -NX 

IFRR< 1 >«RR< 2 >«RR< 3>4RRC 4 >»1THEN2250 

G0SUB3500:1FP0*iTHEN2250 

RR< RX ) *RRC RX > ♦l'K : GOTO205O 

REM *** PROBABILI MOSSE DELL'AVVERSARIO *** 

RX=4 :GOTO2200 
RA=0:NA=0 

RA=RA*1: IFRA >4THEN2240 

NA*MA+I: IFNA >RR<RA>THENNA=01G0T02130 

RR< RA ) =RR< RA > -MA 

I FRR< 1 >«RRt 2 > *RR( 3>+RR( 4>=1THEN2180 
GOSUB3500IFPO*0THEM2230 

RR< RX ) =RR( RX > +NX ! RR< RA ) =RR< RA > t-NA : GOTO2200 
RX*RX-1 : IFRX=0THEN2240 
NX*NX*1:IFNX< =RR( RX)THEN2220 
MX“0 : G0T02190 

MI =RX * M2 =NXi RR< RX ) *RRC RX > -NX :G0T02120 
RR( RA ) =RR< RA ) 4NA ! G0T02 140 
Fl=MI1NU-M2!GOTO2260 
FI=RX:NU=NX 

PR 1 NT"g£XCO LA MIA MOSSA. 

CO =3 -F I «RC FI ) -NU1XX *82400 *24 : YY*64 *F 1 *40 
POKE V ,XXiPOKEV*l,YY:RCFI)=R<FIJ-MJ 
FORT*ITO2000INEXT 
GOSUB3200: GOTO 1300 

PRINT"J" :POKEV421,0:POKE53280,14:END 
PRINT’S < PREMI UN TASTO PER CONTINUARE.>“ 

GETK*:IFK*=““THEN3110 
POKEV +21,0:GOTO200 

FORJ *C0T0C04NJ- 1 I W*J -< 4 -F I > 4< F I - 1 > t2 
FOR I =A< W> TOA< N ) ♦ 120STEP40 : POKE 1,32: KCXT 
NEXTJ * RETURN 

FOR I = I T04 : RUK 1 > »RR< 1 > i NEXT 

FORB*1T03:F = 0 :FORC *1T04-B 

IFRW< C* 1 > >=RW< C >THEN3S40 

T*RWC C) :RUC C>=RW< C4 1 ) :RW< C4 | )=T:F = 1 

NEXTC:IFF=0THEN3560 

NEXTB 

IFC Rl-K 1 >=0>*C RLK 2) = 1 > *< RW< 3 ) * 1 > *< RWC 4 »* l ITHEN3630 

1F< RLK I ) =0) *< RLK 2 ) = 1 ) *< RLK 3 >*4 > *< RLK 4 ) *5 ) THEN3B30 

IF< RLK I )=0 )*< RLK 2 ) " 1 ) *< RLK 3 > *2 ) *< RLK 4 ) =3 )THEN3630 

IF< RLK 1 ) =0) *< RLK 2 > =2 ) *C RLK 3 )*4 )*< RLK 4 ) =6 > THEN3630 

I F< RLK l ) =RLK 2 ) ) *< RLK 3 ) *RLK 4 ) ) THEN3620 

PO=0:RETURN 

IFRLK 3 > * 1THEN36 10 

PO*1 : RETURN 

REM PATTERN INDICE 

DATA 0,255,0,0,235,192,255,253,224 

DATA 235,63,240,253,179,253,0,181,255 

DATA 7,173,255,7,246,255,0,6,255,7 

DATA 251,127,7,231,255,0,7,233,3,251 

OATA 240,3,251,192,0,0,0,0,0,0,0,0 

DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0 

REM PATTERN MONETA 1 

OATA 0,243,0,7,253,0,15,253,128,31 

OATA 235,192,63,233,224,120,0,240 

DATA 120,0,240,123,142,240,233,143 

DATA 248,255,143,248,235,143,248,253 

DATA 143,248,233,143,248,127,143,240 

DATA 127,143,240,126,3,240,63,255 

OATA 224,31,253,192,15,255,128,7 

DATA 255,0,0,248,0,0 

REM PATTERN MONETA 2 

OATA 0,0,0,0,0,0,0,0,0,0,127,224,3 

OATA 255,240,13,195,248,31,37,232 

OATA 63,127,232,127,249,244,233,195 

DATA 236,255,233,132,159,232,l12,224 

DATA 3,224,127,233,128,31,234,0,0,0 

DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 

REM PATTERN MONETA 3 

DATA 0,248,0,7,233,0,15,233,128,31 

OATA 255,192,63,255,224,126,3,240 

DATA 124,1,240,120,241,240,248,233 

DATA 248,248,253,248,248,253,248,243 

DATA 255,248,248,253,248,120,241,248 

DATA 124,1,240,126,3,240,63,233,224 

DATA 31,235,192,13,255,128,7,255,0 

OATA 0,243,0 

0PEN3,4 :CMD3:LIST 



Finalmente 
una rivista 
dedicata 
all'automazione 
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M emo-Test 

per Spectrum 


Test di memoria visiva 


di Pino Finizio 

I I programma che presentiamo 
è un gioco-test che vi permet¬ 
terà di misurare le capacità 
mnemoniche. 

Il test consiste nel ricordare una se¬ 
rie di oggetti, da un minimo di 3 ad 
un massimo di 6. 

Gli oggetti vengono scelti ad ogni 
nuova prova in modo casuale, tra i 
21 disponibili (figura 1) e visualizza¬ 
ti contemporaneamente per un tem¬ 
po compreso tra 2 e 0,5 secondi. 
Dopo il computer mostra i 21 ogget¬ 
ti al completo e indica quanti occor¬ 
re sceglierne. Per la scelta si usano i 
numeri compresi tra 1 e 21 relativi ai 
simboli scelti; non è permessa la ri¬ 


petizione. 

Il test si compone di varie prove, tali 
prove sono di difficoltà crescente sia 
per il numero degli oggetti che per il 
tempo di visualizzazione. (Inizial¬ 
mente vengono visualizzati 3 oggetti 
in 2 secondi). 

Se si indovinano tutti gli oggetti si 
guadagnano 2 punti per ogni ogget¬ 
to indovinato, altrimenti si perdono 
2 punti per ogni oggetto sbagliato. 
In quest'ultimo caso si ha la facoltà 
di rinunciare, oppure di ripetere la 
prova. 

Una volta superato il test, vi sarà 
indicato il numero dei tentativi ed il 
punteggio raggiunto. 

Il test può essere reso più difficile 
aumentando il numero massimo de¬ 
gli oggetti a 9, per fare ciò occorre 
modificare la linea 410, così: 

410 IF C = IO THEN GOTO 445 
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Figura 1 .1 21 tarai ieri grafici che 
occorre saper ricordare. 

Il programma viene lanciato auto¬ 
maticamente. per cui dovrete regi¬ 
strarlo con: 

SAVE “MF.MO-TEST” LINE 1000 

Un’ultima raccomandazione. 
Attenzione alle spaziature presenti 
in alcuni Print, devono essere così 
come stampate nel listato. ■ 


Listato 1. Listato BASIC de! programma "Memo- 

Test”. Per memorizzare su cassetta usare: Save 

"Memo-Test” Line 1000. 

10 LET C-3: LET d=100: LET p =0 
: LET t =© 

15 DIM a (9) : DIM b(9): DIM C*< 
80) 

20 PRINT OT 4-, 0; PAPER 6;" 

MEMO-TEST " ; F 

OR n=50 TO 0 STEP -2: BEEP .05,n 
: NEXT n 

25 LET a$="test di memoria vis 
iva" 

3® LET V=5: POR n=l TO 22 
35 PRINT RT 7,v; INVERSE l;a*( 
n TO n); BEEP .01,0: LET V=V+1: 
NEXT n 

4-0 PRINT RT 11,8; "di Pino Fini 
Zio": BEEP .5,-12 

«rK,àS„£S INT fiT 19 >2; FLASH l; "ATT 
CNDCRE 

50 GO TO 530 
55 CLS 

60 RANDOMIZE : FOR n=l TO C: L 
ET 3 in) =INT ( 14-4-+31 *RND) : N£XT n 
65 FOR n-1 TO C : FOR m=l TO C 
7® IF n=M THEN NEXT m 
75 IF a(n)=a(m) THEN GO TO 90 
80 NEXT M: NEXT n 
85 GO TO 100 

90 LET a (m) = INT 114-4 +21 *RND) 

95 GO TO 65 

100 LET e=d/50: BEEP .05,-6: PR 
INT AT 5,2;"NUMERO OGGETTI » ";c 
105 PRINT AT 7,2;"DURATA DELL'I 


MMAGINE = “;e;“/sec" 

110 PRINT AT 10,2; INUERSE lj"p 
remi un tasto per iniziare": PAU 
se 0 

115 CLS : FOR n =5 TO 13: PRINT 
AT n , 12 ; INK 7; "HHHHHi**: NEXT 
n 

120 BEEP 1,10: LET y=13: LET X = 

7 

125 FOR n=l TO C: PRINT RT X,y; 
PAPER 7;CHR* atn): LET y=y+3 
130 IF y=22 THEN LET X=X +3 : IF 
y=22 THEN LET y»13 
135 BEEP .01,4.0: NEXT n 
140 PAUSE d: CLS 

145 FOR n =1 TO 16: PRINT AT n,3 
;_INK 


; FOR n =1 
ik 7;"Éi 
: NEXT n 


150 LET g -3: LET b=7: LET i=1 
155 FOR n «144 TO 164 
160 PRINT AT 9,h; PAPER 7;CHR* 
n: PRINT AT g-2,h; PAPER 7;i: LE 
T i =i +1 

165 BEEP .01,3 

170 LET b=h+3: IF h > =26 THEN LE 
T g =g +6 

175 IF h > =26 THEN LET h=7 
180 NEXT n 

185 PRINT AT 17,1; INK l;"Devi 
scegliere "; c; " oggetti. s 

orivi i i nume ro corrispondente e 
premi 9831111 " 

190 FOR n =1 TO C 

195 print AT 2l,l;nj"' oggetto" 
: INPUT ; LINE ai 
200 IF LEN a * = 1 THEN GO TO 235 
205 IF LEN a}=2 THEN GO TO 220 
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Seguilo Usuilo I. 

210 PRINT RT 21,13: FLASH 1;"NU 
MERO NON UALIDO": BEEP 1,-20 
215 PRINT RT 21,13;C*< TO 18): 

GO TO 195 _. 

220 LET d$=a$< TO 1): LET e$=a* 
(2 TO 2) 

225 IF COOE d t <*48 OR CODE d*> = 
58 THEN GO TO 210 
230 IF CODE e * < *4.? OR CODE e*> = 
58 THEN GO TO 210 
235 IF CODE a*< = 4-8 OR CODE a*> = 
58 THEN GO TO 210 
24.0 IF UAL a * = 0 OR UAL a *>21 TH 
EN GO TO 210 
245 LET g*l: LET h =7 
250 FOR m»1 TO 21 
255 LET b (n)«UAL a* 

260 LET W*=SCREEN* (g,h): LET J 
*=SCREEN* (g , h +1) : LET X*=W* + j*: 
LET X =UAL X* 

265 IF b(n)=X THEN GO TO 285 
270 LET h=h+3: IF h>=26 THEN LE 
T g=g+6 

275 IF h >=26 THEN LET h=7 

Ìli IF X RTTR C9 +2,h) =32 THEN GO 
TO 305 

290 LET b<n) =b In) +143 
295 PRINT AT g+2,h; PAPER 4,CHR 
* b(D): PRINT AT g+3,b; PAPER 7; 
"t”: BEEP .01,7 

300 NEXT n: PAUSE 50: GO TO 310 
305 PRINT AT 21,12; FLASH 1;"NU 
M. GIR' UTILIZZATO": BEEP 1,-10: 
PRINT AT 21,12;C*: GO TO 195 
310 LET f =0 : LET 1=0 
315 FOR n=l TO C: FOR m=l TO C 
320 IF b (n) = a (») THEN LET f = f+l 
325 NEXT m 
330 NEXT n 

335 IF f=C THEN GO TO 390 
340 LET t =C-f: GO SUB 510 
345 BEEP 1,-30 

350 LET p=p-(2*l>: PRINT AT 11, 
5;"PUNTEGGIO=”;p 
355 LET t=t+l 
360 LET k=IN 65278 

365 PRINT AT 16,2; INUERSE 1;"S 
e vuoi continuare premi . C ” 

370 PRINT AT 17,2; INUERSE 1;"a 
itrimenti premi ÓAPS-SHIFT" 

375 IF k=247 THEN GO TO 115 

380 IF k =254 THEN GO TO 495 

385 GO TO 360 

390 LET 0=2»C 

395 LET d=d-2S 

400 IF d =0 THEN LET C=C+1 

405 IF d =0 THEN LET d=100 

41® IF C=7 THEN GO TO 445 

415 GO SUB 510 

420 LET P=p+0 

425 PRINT AT 11,5;"PUNTEGGIO*”; 
P 

430 LET t»t+l 
435 PAUSE 200 
440 GO TO 55 

445 BEEP .05,7: BEEP .5,5: BEEP 
.05,3: BEEP .5,12 

450 CLS : PRINT AT 6,2;"HAI SUP 
ERATO IL TEST" 

455 PRINT AT ©,2;"IN ";t;“ TENT 
ATIUI!I" 


460 PRINT AT 10,2;"PUNTEGGIO -"} 

P 465 LET k=IN 65278 
470 PRINT AT 16,2; INUERSE 1 ;"6 
e vuoi riprovare premi C 
475 PRINT AT 17,2;INUERSE l;"a 
Itrimenti premi CAPS-shift 
480 IF k =247 THEN GO TO 55 
485 IF k =254 THEN GO TO 500 
490 GO TO 465 

495 CLS : PRINT AT B,1;"HAI RIN 
UNCIATO AL ”;t;“' TENTATIUO": ST 
OP 

500 CLS : PRINT AT 10,12; FLASH 
l;"F I N E" 

505 STOP 

510 CLS _ 

615 PRINT AT 5,5;“OGGETTI ESATT 
I a •• j f 

52Ò PRINT RT 8,5;"OGGETTI SBRGL 
IATI»";l 

525 RETURN _ _ 

530 FOR n=144 TO 164: FOR a=0 T 
O 7 

535 READ X: POKE USR CHR* (n)+m 

'540 NEXT m: NEXT n 
545 GO TO 55 

550 DATA 0,28,39,228,39,28,0,0 
555 DATA 0,0,0,7,7,31,127,12| 
360 DATA 0,254,68,40,16,16,56,1 
24 

565 DATA 24,24,60,60,36,60,60,6 

0 

570 DATA 34,62,34,62,34,62,34,3 
4 

575 DATA 29,46,23,11,21,34,192, 
64 

580 DATA 6,9,9,15,17,63,37,36 
585 DATA 0,0,63,97,195,255,165, 
« 3 O 

590 DATA 40,126,129,189,189,189 
,129,126 

595 DATA 0,165,231,255,255,231, 
231,66 

600 DATA 255,143,255,129,213,17 

1 élè 3 ÓATA 60,74,137,137,185,129, 
66,60 

6Ì0 DATA 0,224,232,240,255,255, 
207,0 

615 DATA 0,0,28,34,255,255,102, 

0 

620 DATA 128,64,128,64,128,255, 
131,255 

625 DATA 73,0,73,73,73,62,8,28 
630 DATA 0,7,69,127,255,127,34, 

0 

635 DflTR 70 > 124-, 126,66 >66,126,1 
26 0 

640 DATA 60,118,223,183,126,24, 

2 645 0 DATA 16,40,68,146,146,84,56 

, 56 

650 DATA 30,53,43,53,43,62,64,1 
28 

1000 POKE 23609,20: BORDER 1: PA 

1010 S PRINT AT sTÌ;, FLASH l;"ierm 
a il registratore .- BEEP 1,7: PR 
INT RT §3,2; INUERSE l;“premi un 
tasto": PAUSE 0: CLS 
1020 GO TO 10 
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“Calcolare” il futuro 
con il TI99/4A 


di Daniele Sgorbiai 

T utto ciò che è misterioso 
suscita interesse e, pertan¬ 
to non passa mai di moda, 
così la chiaroveggenza tiene il passo 
con i tempi, anche se ha dovuto 
adattarsi all’evoluzione degli stessi: 
la zingara col capo avvolto in un 
foulard che scruta la mitica sfera di 
cristallo ha lasciato il posto alla di¬ 
stinta signora che osserva i fosfori del 
video di un computer, nel nostro 
caso, di un Texas TI99/4A. Con 


questo programma si vuole permet¬ 
tere all’utente di predire scientifica¬ 
mente quello che potrà essere il suo 
stato di forma o di analizzare i moti¬ 
vi di una certa sua prestazione pas¬ 
sata. Prima però di giungere alla de¬ 
scrizione dell’algoritmo del pro¬ 
gramma è necessario introdurre per 
sommi capi la teoria bioritmica. 
Questa teoria, pur non essendo uni¬ 
versalmente accettata, presenta de¬ 
gli aspetti indubbiamente interes¬ 
santi sui quali non esistono contro¬ 
versie: l’esistenza di cicli regolanti la 
nostra esistenza che ogni giorno ab¬ 
biamo occasione di verificare trami¬ 
te una semplice osservazione di ciò 
che ci circonda. 

Si pensi ad esempio al ciclo gior¬ 


naliero di apertura e chiusura dei 
petali di un fiore, all’alternarsi delle 
stagioni o al comportamento degli 
animali (letargo, accoppiamento, 
ecc.). Anche la vita umana è regola¬ 
ta da cicli; le ricerche fatte per cerca¬ 
re di identificarli sono, soprattutto 
nel campo della medicina, all’ordine 
del giorno: temperatura corporea, 
secrezioni glandolai e via di seguito. 
Il panorama è vasto ed affascinante 
e non si tratta di cose campate in 
aria, senza un fondamento: lo con¬ 
ferma il fatto che, nello studio del¬ 
l’adattabilità dell’essere umano alla 
vita nello spazio o in condizioni par¬ 
ticolarmente difficili, vengono uti¬ 
lizzati i bioritmi. Soprattutto i russi 
sono sensibili alle indicazioni clic si 


Listato 1. // programma Bioritmi. 

100 FOR 1=1 TO 16 
110 CALL COLOR(1,16,1) 

120 NEXT I 

130 CALL SCREEN(5) 

140 CALL CHAR(15000383838FE7C3 
81 0") 

150 CALL CHAR(140,"000000FF01") 

160 DEF RESTO(G)=((JV/G)-INT(JV/ 
G) ) *G 

170 DIM X(23),Y(28),Z(32) 

180 V$="didascaliedidascaliedida 
scaliedidascaliedidascalliedidas 
calie" 

190 Y$="xxxxxxxxxxxxxxxxxxxxxxxx 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
xxxxxxxxxxxx" 

200 K$="XXXXXXXXXXXXXXXXXXXXXXXX 
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

xxxxxxxxxxxxxxx" 

210 NT$="** STATO INTELLETTIVO * 
* »■ 

220 PS$="** STATO PSICHICO * 


* » 

230 FS$="** STATO FISICO * 
* « 

240 MI$="MIN. FRA GG" 

250 MA$="MAX. FRA GG" 

260 FX$ = "FLEX.FRA GG" 

270 CALL CLEAR 

280 PRINT "salve"questo progr 
anima permette di conoscere lo st 

ato bioritmico di una persona.": 

• • 

• • 

290 INPUT "inserire la data di n 
ascita del soggetto in analisi: 

":G,M,A 
300 GOSUB 1450 
310 Jl =JD 

320 INPUT "inserire ora la data 

del giorno da valutare:":G,M,A 

330 GOSUB 1450 

340 J2=JD 

350 JV=J2-Jl 

360 CALL CLEAR 

370 PR=33 

380 MX=7 

390 MN=22 

400 FX=16 
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Bioritmi 


possono ricavare dallo studio dei 
bioritmi dei soggetti in esame: nella 
banca dati della NASA, infatti, alla 
voce bioritmi è elencata una serie di 
articoli, di cui molti di autori sovie¬ 
tici. Questi studi sono indirizzati 
particolarmente all'analisi delle va¬ 
riazioni dei cicli, per effetto dei cam¬ 
pi magnetici o per effetto delle parti¬ 
colari condizioni clic si verificano 
nei voli spaziali. Aspettarsi da un 
solo articolo una trattazione esau¬ 
riente e profonda sulla teoria biorit¬ 
mica è quindi una mera utopia; per 
approfondimenti si rimanda alla let¬ 
teratura specializzata. Di conse¬ 
guenza daremo per scontata la vali¬ 
dità di ciò che verrà analizzato e ci 
limiteremo ad approfondirne i punti 


salienti. 

Trascureremo le applicazioni più 
tecniche e più profonde, limitandoci 
alla descrizione di ciò che maggior¬ 
mente può suscitare interesse tenen¬ 
do conto anche del fatto che i lettori 
avranno conoscenze in campi molto 
disparati e che quindi una discussio¬ 
ne molto tecnica e specifica sarebbe 
solamente tediosa per molti. Tratte¬ 
remo solamente i cicli Fisico, Psichi¬ 
co ed Intellettivo, cioè quella bran¬ 
chia della teoria bioritmica che più è 
contestata, ma che più interessa il 
pubblico. Pur incontrando degli il¬ 
lustri denigratori, lo studio di questi 
cicli è proseguito rapidamente dan¬ 
do luogo a risultati e pareri contra¬ 
stanti. In questo contesto di discor¬ 


danze la mia opinione non potrà 
certo avere nessuna eco, cionono¬ 
stante, vi posso assicurare che, fa¬ 
cendo “girare” questo programma, 
si otterranno dei risultati sorpren¬ 
denti. Almeno per quel che riguarda 
la mia cerchia familiare e le mie ami¬ 
cizie. le previsioni del computer si 
sono rivelate straordinariamente 
aderenti alla effettiva realtà delle co¬ 
se. Se non siete convinti, provate ad 
implementare questo programma, 
anche solo per curiosità, e verificate 
la validità o meno dei risultati otte¬ 
nuti. 

I cicli della vita 

I cicli che analizzeremo hanno un 


410 GOSUB 1290 

420 FOR 1=1 TO LEN(NT$) 

430 P=ASC(SEG$(NT$,1,1)) 

440 CALL HCHAR(1,3+1,P) 

450 NEXT I 

460 FOR 1=1 TO LEN(MI$) 

470 N=ASC(SEG$(MI$,I,1)) 

480 M=ASC(SEG$(MA$,1,1)) 

490 0=ASC(SEG$(FX$,I,1)) 

500 CALL HCHAR(3,15+1,N) 

510 CALL HCHAR(5,15+I,M) 

520 CALL HCHAR(7,15+1,0) 

530 NEXT I 

540 GOSUB 1650 

550 GOSUB 1530 

560 CALL HCHAR(13,1,140,32) 

570 DATA 13,11,9,7,6,5,4,3,3,3,4 
,5,6,7,9,11,13,15,17,19,20,21,22 
,23,23,23,22,21,20,19,17,15 
580 FOR 1=1 TO 32 
590 READ Z(I) 

600 CALL HCHAR(Z(I),1,42) 

610 NEXT I 

615 IF R=32 THEN 630 

620 CALL HCHAR(Z(R+l)-1,R+l,150) 

630 CALL SOUND(90,700,2) 


640 REM CICLO EMO 

650 CALL KEY(0,KEY,STATUS) 

660 IF STATUS=0 THEN 650 
670 REM CANCELLA INT 

1 680 FOR 1=1 TO 32 

690 CALL HCHAR(Z(I),1,32) 

700 NEXT I 

710 CALL HCHAR (1 4,1 , 32,31 2) 

720 REM RITRACCIA RIGA 
730 CALL HCHAR(13,1,140,32) 

740 CALL HCHAR(Z(R+l)-1,R+1,32) 

750 FOR 1 = 1 TO .LEN (PS$) 

760 P=ASC(SEG$(PS$,I,1)) 

770 CALL HCHAR(1,3+1,P) 

780 NEXT I 

790 CALL SCREEN(13) 

800 MN=21 
810 MX=7 
820 FX=14 
830 PR=28 
840 GOSUB 1290 
850 GOSUB 1650 
860 V$=Y$ 

870 GOSUB 1530 

880 DATA 12,9,7,5,4,3,2,2,3,4,5, 
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Bioritmi 

andamento assimilabile ad una cur¬ 
va del tipo sin(x) (figura 1). Questa 
curva (che prende il nome di sinusoi¬ 
de) descrive giorno per giorno il no¬ 
stro stato di forma. Per chi fosse 
digiuno di geometria analitica spie¬ 
gherò che la funzione sin(x) è una 
funzione che si ripete periodicamen¬ 
te nel tempo, cioè, all’aumcntare di 
x essa si riconduce sempre ad un 
valore appartenente alla curva che 
descrive l’andamento della funzio¬ 
ne. I cicli sono supposti essere in 
numero di tre: essi regolano il nostro 
stato fisico, psichico ed intellettivo 
ed hanno durate di 23, 28,33 giorni 
rispettivamente. In ognuno di questi 
cicli sono individuabili 3 punti di 
particolare interesse: il minimo, il 
massimo ed il flesso. I primi due non 
necessitano di particolari commen¬ 
ti; il terzo che è il punto in cui la 
curva incontra l’asse delle ascisse ri¬ 
veste un’importanza tutta particola¬ 
re in quanto, essendo il punto in cui 
il nostro bioritmo cambia di segno, è 
il giorno più critico pur non essendo 



Figura 1. Vediamo rappresentati i tre cicli: i valori in ordinata 
non hanno riscontro pratico, mentre in ascissa sono rappresen¬ 
tati i giorni. 1 cidi sono riconoscibili dalla lunghezza e dai 
simboli sovrapposti. 



Seguito programma Bioritmi. 

7,9,12,14,17,19,21,22,23,24,24,2 
3,22,21,19,17,14 
890 FOR 1=1 TO PR 
900 READ Y(I) 

910 CALL HCHAR(Y(I),1+2,42) 

920 NEXT I 

930 CALL HCHAR(Y(R)-1,R+2,150) 
940 CALL SOUND(90,700,2) 

950 CALL KEY(0,KEY,STATUS) 

960 IF STATUS=0 THEN 950 

970 FOR 1=1 TO 28 

980 CALL HCHAR(Y(I),1+2,32) 

990 NEXT I 

1000 CALL HCHAR(14,1,32,312) 

1010 CALL HCHAR(13,1,140,32) 

1020 CALL HCHAR(Y(R)-1,R+2,32) 
1030 FOR 1=1 TO LEN(FS$) 

1040 P=ASC(SEG$(FS$,I,1)) 

1050 CALL HCHAR(1,3+1,P) 

1060 NEXT I 

1070 CALL SCREEN(14) 

1080 MN=17 
1090 MX= 6 


1100 FX=12 
1110 PR=23 
1120 GOSUB 1290 
1130 GOSUB 1650 
1140 V$=K$ 

1150 GOSUB 1530 

1160 DATA 13,10,7,5,4,3,3,4,5,7, 
10,13,16,19,21,22,23,23,22,21,19 
,16,13 

1170 FOR 1=1 TO 23 
1180 READ X(I) 

1190 CALL HCHAR(X(I),1+4,42) 

1200 NEXT I 

1210 CALL HCHAR(X(R)-1,R+4,150) 
1220 CALL SOUND(90,700,2) 

1230 CALL KEY(0,KEY,STATUS) 

1240 IF STATUS=0 THEN 1230 
1250 CALL CLEAR 

1 260 INPUT "vuoi analizzare un ' a 
ltra data oun altro soggetto?":R 
S$ 

1270 IF RS$="SI" THEN 100 
1280 END 

1290 REM CALCOLO MIN,MAX,FLEX 
1300 R=RESTO(PR) 
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il più negativo. Questi 3 punti indivi¬ 
duano sulla curva delle zone con ca¬ 
ratteristiche comuni: nel primo 
quarto del ciclo riconosciamo la zo¬ 
na più favorevole, caratterizzata da 
un’ascesa positiva verso il massimo: 
dovrebbe essere questo il periodo a 
noi più propizio. Infatti, raggiunto e 
superato il massimo, pur rimanendo 
in fase positiva, il bioritmo inizia a 
calare. 

Arrivato al punto critico di flesso, 
si continua nella discesa; è questo il 
periodo più brutto. Infatti, una vol¬ 
ta superato il minimo, si risentirà 
dell’effetto positivo dovuto ad una 
fase di crescita. Si era detto come i 
cicli coinvolgessero tre componenti 
essenziali del nostro' ego; è necessa¬ 
rio distinguere, soprattutto nel pri¬ 
mo, la differenza che esiste fra stato 
bioritmico e stato di forma. Il fatto 
che noi siamo malati non necessa¬ 
riamente implica che il nostro bio¬ 
ritmo è basso così come un bioritmo 
positivo indica solamente che noi 



siamo ben disposti per difenderci da 
agenti esterni, non che siamo in per¬ 
fetta salute in quel determinato mo¬ 
mento. Tenete ben presenti queste 
considerazioni quando sarete tenta¬ 
ti di rinnegare la teoria bioritmica 
perché il vostro bioritmo è alto e voi 
siete a letto con la febbre. Il secondo 
ciclo coinvolge la nostra sfera psi¬ 
chica con tutte la manifestazioni 
consce ed inconsce del nostro io, in 
particolare affetti, sensi, emotività; 
nei giorni no mettete in guardia chi 
vi sta accanto. L’ultimo ciclo, quello 
intellettivo, non merita particolari 
considerazioni, vi invito solo a cal¬ 
colarlo in vista di interrogazioni o 
esami. Se crederete a quanto scritto 
e farete girare il programma, state 
anche attenti a non farvi suggestio¬ 
nare attribuendo al vostro bioritmo 
la responsabilità di eventi casuali. 
Detto questo non resta altro da fare 
che invitarvi a digitare il program¬ 
ma sul vostro TI99/4A, utilizzando 
il TI-BASIC. 


1310 IF R>MX THEN ]340 
1320 MAX=MX-R 
1330 GOTO 1350 
1340 MAX=PR-(R-MX) 

1350 IF R>MN THEN 1380 
1360 MIN=MN-R 
1370 GOTO 1390 
1380 MIN=PR-(R-MN) 

1390 IF R<FX THEN 1420 
1400 FLEX=PR-R 
1410 GOTO 1430 
1420 FLEX=FX-R 
1430 RETURN 
1440 REM CALCOLO JD 
1450 IF A>=0 THEN 1470 
1460 A=A+1 

1470 K=INT((M-3)/l2) 

1480 J=INT(((M-2)-(K*12))*30.59) 
1490 JD=INT((A+K+4712)*365.25)+J 
+G+29 

1500 IF JD<2299170 THEN 1520 
1510 JD=JD-INT(.75*INT((A+100+K) 
/ I 00))+2 
1520 RETURN 


1530 REM SUB.DESCR. 

1540 W=15 

1550 FOR 1=1 TO 135 STEP 15 
1560 C$=SEG$(V$,I,15) 

1570 FOR J=1 TO LEN(C$) 

1580 V=ASC(SEG$(C$,J, 1 )) 

1£90 CALL HCHAR( W, 1+J,V) 
1600 NEXT J 
1610 W=W+1 
1620 NEXT I 
1630 RETURN 

1640 REM SUBR.CARATTERIZZA 
1650 MIN$=STR$(MIN) 

1660 MAX$=STR$(MAX) 

1670 FLEX$=STR$(FLEX) 

1680 FOR 1=1 TO 2 
1 690 D=ASC(SEG$ (MIN$, 1,1 ) ) 

1 700 E=ASC (SEJG$ (MAX$, I, 1 ) ) 
1710 F=ASC(SEG$(FLEX$,1,1)) 
1720 CALL HCHAR(3,24+1,D) 
1730 CALL HCHAR(5,24+1,E) 
1740 CALL HCHAR(7,24+1,F) 

1 750 NEXT I 
1760 RETURN 
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Descrizione del listato 

L’idea di fondo del programma si 
basa sul fatto che è possibile indivi¬ 
duare lo stato bioritmico calcolando 
i giorni che si sono vissuti e poi ese¬ 
guendo l’operazione: (giorni vissuti 
Mod giorni ciclo). I giorni vissuti 
saranno calcolati facendo la diffe¬ 
renza dei giorni giuliani corrispon¬ 
denti alla nascita ed alla data in esa¬ 
me; la funzione Mod che dà il resto 
della divisione intera non è disponi¬ 
bile nella biblioteca del TI99 per cui 
verrà simulata senza che ciò induca 
particolari complicazioni. Vediamo 
ora più dettagliatamente come si 
comporta il programma. Nelle pri¬ 
me righe viene assegnato il colore 
bianco a tutti i caratteri e viene cam¬ 
biato il colore del video da verde in 
blu, vengono inoltre definiti i carat¬ 
teri freccia e linea secondo le moda¬ 
lità ben note all’utente del Texas. Le 
linee seguenti devono contenere le 


didascalie che appariranno sul video 
a commento di ogni ciclo; dovranno 
essere fatte in modo da poter essere 
troncate correttamente ogni 15 ca¬ 
ratteri. Queste, che sono state omes¬ 
se nel listato, potranno al massimo 
essere lunghe come una linea di testo 
e serviranno per commento e per 
contorno ad ogni ciclo visualizzato. 
Se il giorno del ciclo intellettivo è il 
trentaduesimo la freccia non appare 
perché il video, come noto, è lungo 
solo 32 caratteri. La routine che vie¬ 
ne eseguita dopo ogni input serve 
per il calcolo del giorno giuliano. 
Per ulteriori chiarimenti sul funzio¬ 
namento di detta routine si veda 
Personal Software n.7. Anche il cal¬ 
colo delle distanze dai punti salienti 
del ciclo viene demandato ad una 
routine alla quale passiamo i para¬ 
metri su cui operare tramite gli asse¬ 
gnamenti che precedono la sua chia¬ 
mata. Per i meno esperti si fa notare 
che il ciclo 420-450 serve a fare ap¬ 


parire una stringa in una qualsiasi 
parte del video senza effettuare un 
deprecabile scroll verso l’alto. Il ci¬ 
clo seguente stampa sul video le al¬ 
tre informazioni necessarie ad una 
corretta comprensione dell’elabora¬ 
to. 

Successivamente si ricorre ad una 
subroutine per scrivere i valori delle 
distanze dai punti salienti del ciclo. I 
valori che appaiono neU’istruzione 
Data costituiscono le ordinate della 
curva che verrà disegnata sul video 
tramite la stampa di asterischi. Il 
ciclo che segue provvede a stampare 
correttamente detta curva a cavallo 
della linea delle ascisse che sarà già 
apparsa. Infine, quando si passa ad 
analizzare un nuovo ciclo, vengono 
sostituite le informazioni riguardan¬ 
ti il precedente ed il processo fin qui 
descritto viene ripetuto fino all’e¬ 
saurimento dei cicli da esaminare. 
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Gaetano Marano 
77 PROGRAMMI 
PER SPECTRUM 

Oltre alla qualità dei programmi 
contenuti in questo libro, è da noia- 
re la varietà delle applicazioni e 
degli argomenti, per la cui realizza¬ 
zione. si è cercato di utilizzare al 
massimo le nuove interessanti pre¬ 
stazioni dello Speclrum quali le 
nuove istruzioni BASIC, la velocità. 
Il suono, e soprattutto il colore e la 
grafica 

Cod. 566A Pag. 150_Lire. 24 000 

cm cuuti» 

Roberto Rigo 

SPECTRUM TOOL. 

Programmi di qualità: grafica e 
gioco 

Questo libro propone una serie di 
interessanti programmi BASIC che 
si servono di routine scritte in lin¬ 
guaggio macchina con ninni 
Cod. 5670 Pag. 186_Lire. 24.000 


Mark Ramshaw 
GIOCHI GIOCHI GIOCHI 
PER IL VOSTRO VIC 20 

I giochi: quanti hanno cominciato 
proprio da qui a interessarsi di Per¬ 
sonal Computer? 

Ouesto libro ne presenta diversi di 
diversa difficoltà due parole su co¬ 
me si gioca e poi il listato del pro¬ 
gramma 

Cod. 5680 Pag. 114_Lire. 24.000 

CCN CIIWU 

Tìm Harlnell 

SINFONIA 

PER UN COMPUTER: VIC 20 

Questo libro è un invito a imparare 
divertendosi, prima giocate, ma 
poi date un'occhiata ai listati dei 
programmi Imparerete alcune tec¬ 


niche semplici ma raffinate, per 
raggiungere gli effetti più spettaco¬ 
lari. e queste vi serviranno senz'al¬ 
tro quando dai giochi vorrete pas¬ 
sare ad applicazioni "serie' 

Cod. 565D Pag. 130_lire 24 000 

cm cattine 

Owen Bishop 

IL LIBRO DEI GIOCHI 
DEL COMMODORE 64 

Ogni programma è corredato da 
istruzioni che ti insegnano l’uso dei 
giochi. Il modo in cui essi funziona 
no è esposto in dettaglio, con alcu 
ni accorgimenti sulle tattiche vili 
centi. Vengono dati pure alcuni 
consigli su come modificare i gio 
chi in forma creativa per adattarli 
alle lue idee. 

Cod. 350D Pag. 158_Lire. 24.000 

con usuila 

/Vige/ Freestone 

DATABASE: 

L UTILE E IL DILETTEVOLE 

Il libro, studiato per chi vuol fare 
da sé" con il calcolatore, parla di 
quella che è la materia prima dell'e¬ 
laborazione. i dati, e affronta il pro¬ 
blema della loro memorizzazione, 
della loro organizzazione all'inter¬ 
no del computer e delle operazioni 
che si possono fare su di essi 
Cod. 500H Pag. 160_Lire. 15000 


GRUPPO IDITORIAU 
JACKSON 


Francesco Lentini 

CONOSCI TE STESSO 
TRAMITE IL TUO PERSONAL 
COMPUTER 

Il libro si compone di cinque capito¬ 
li. ognuno dei quali attinge ad una 
delle discipline che affrontano in 
qualche modo lo studio della per¬ 
sonalità umana: Numerologia. 
Astrologia. Grafologia. Scienza del 
Comportamento. Test di Intelligen¬ 
za. 

I programmi sono stati scritti per 
Apple II e sono disponibili su cas¬ 
setta e dischetto. 

Cod. 401D Pag. 128_Lire. 12.000 

con causila 

Michel Benelloul 
GIOCHI. TRUCCHI E CONTI 
Questo libro è destinato soprattut¬ 
to ai programmatori principianti: i 
suoi 29 programmi, presentati con 
una ricca documentazione, sono 
pronti per essere eseguiti. Gli argo¬ 
menti sono tanti e rispondono alle 
esigenze più disparate II BASIC è 
quello dei calcolatori PET/CBM di 
cui vengono sfruttate a pieno le 
molte funzioni. 

Cod. 5530 Pag. 164_Lire. 24.000 

con canotto 

W Carris 

BASIC ATARI 

Un ottimo libro pei chi non ha alcu¬ 
na esperienza di programmazione 
e di computer, per chi sà tutto sul 
BASIC ma non sul Basic Alari e 
infine per i programmatori Atan 
che potranno usare il testo come 
manuale di riferimento 
Cod. 4090 Pag. 192_Lire. 20000 
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M etodi di Newton 


Risolviamo le funzioni matematiche 
con il Commodore 64 


di Alberto Bosoni 

N oi conosciamo semplici formule per risolvere 
equazioni lineari e quadratiche. Ci sono poi for¬ 
mule o metodi per risolvere equazioni di grado 
superiore, ma la loro possibilità di utilizzazione è sem¬ 
pre limitata. Un metodo che consente, invece, la solu¬ 
zione di ogni tipo di equazioni è quello detto di Newton- 
Raphson. Esso consiste nell’“indovinare” una prima 
approssimazione di una radice di un’equazione f(x) = 0 
(un grafico di f(x) può essere, a tale scopo, utile) e 
nell’usare tale prima approssimazione per ottenerne 
una seconda, una terza, e così via. Per passare dall’enne¬ 



sima approssimazione x.. alla successiva approssimazio¬ 
ne x.. t isi usa la formula iterativa: x..+i=x..—f(xn)/f’(x..) 
( 1 ), dove f’(xn) è la derivata prima di f(x) nel punto x... 
Esempio. Risolviamo l’equazione f(x) = x 3 — x — 1 = 0 
con il metodo sopra descritto. 

Se x 3 — x — 1 = 0, x 3 = x + 1 ; dunque, come ci mostra il 
grafico, l’equazione ammette una soluzione x= a, con 1 
< a < 2 . 

Senza il metodo di Newton-Raphson dovremmo accon¬ 
tentarci di questa approssimativa indicazione. 
Prendiamo ora x i = 1 come nostra prima approssima¬ 
zione e usiamo ripetutamente la formula ( 1 ) per ottenere 
X 2 , X 3 , ecc., come mostriamo nella tavola qui sotto: 


n Xn 

f(xn) 

r<xn) 

x„ ■ i ~ xn ■ f(Xn) 

T<x«) 

1 1 

-1 

2 

1.5 

2 1.5 

0.875 

5.75 

1.347826087 

3 1.347826087 

0.100082174 

4.449905482 

1.325200399 

4 1.325200399 

0.002058363 

4.268468293 

1.324718174 

5 1.324718174 

0.000000925 

4.264634722 

1.324717957 

6 1.324717957 

-5 x IO" 1 

4.264632997 

1.324717957 


Quando n = 6 otteniamo il risultato x 6 = Xs = 
1.324717957. Quando x.. +1 = x.. la formula (1) mostra 
che f(xu) = 0. Abbiamo così trovato la soluzione della 
nostra equazione f(x) = 0 approssimata a nove decimali! 
Cerchiamo ora di capire perché giungiamo a questo 
risultato, in altre parole la teoria che si cela dietro il 
metodo. 

In questo metodo si usa la tangente a f(x) per approssi¬ 
mare il grafico di y = f(x) in un intorno del punto P(x.., 
y„), dove y.i = f(x») è (preferibilmente) piccolo; x.. +1 è 
invece il valore dell’intercetta della tangente alla curva 



sull’asse delle ascisse. (Assumiamo che la pendenza 
f’(xn) della tangente non è zero). 

L’equazione della tangente è: y — y»= f’(x..) (x — x..). 
Posto y..= f(xn) e y = 0, risolviamo in x: 

x - x..= - f(x„)/f’(x,), 
o, come nella ( 1 ): 
x = Xn — f(x..)/f’(x..). 
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N.B. Il metodo non funziona se f(xn) = 0. In quel caso 
occorre scegliere un nuovo punto di partenza. E inoltre 
buona norma controllare, prima di cominciare, che il 
valore di partenza non annulli f’(x). 

Nel caso dell’esempio presentato avremmo potuto par¬ 
tire da un valore di x più grande (per esempio 3, si veda il 
diagramma precedente) e saremmo giunti comunque al 
medesimo risultato, sebbene applicando un maggior 
numero di volte la formula iterativa (1). Si tenga però 
presente che partendo da punti diversi si può pervenire a 
soluzioni diverse, tutte soddisfacenti l’equazione data, 
qualora quella ne ammetta più di una. 

Esempio. Risolviamo l’equazione f(x) = 4 — 2* — x 2 = 0. 
Il grafico sotto mostra che essa ha due soluzioni: x..c xn; 
possiamo inoltre valutare che — 2<a<-lel<p<2. 
Con il metodo di Newton-Raphson, partendo da xi = 1 
(o2) troviamoxn= 1.264166267,partendodaxi = — I (o 
— 2) troviamo x»= — 1.933441518. 



Con la linea 25 si introduce xi, cioè il punto della 
curva dal quale si vuole cominciare per ricercare le 
eventuali radici dell’equazione. Nelle righe 40 e 50 si 
introducono rispettivamente la funzione e la sua deriva¬ 
ta prima (f(x) e f’(x)). Nella riga 60 viene applicata la 
formula iterativa x.m= x.i + f(Xn)/f’(xn). Nella riga 100 si 
passa a un successivo ciclo iterativo (n = n + I ) e si pone 
x uguale alla x trovata mediante la formula di cui sopra. 
A questo punto introduciamo l’uso delle matrici: ogni x 
occupa pertanto un ben determinato posto designato 
dal numero n. Introduciamo l’uso delle matrici per 


poter interrompere il succedersi delle iterazioni. Non 
sempre, infatti, perveniamo ad ottenere, alla fine, un 
valore della x tale che annulli la funzione data, cioè tale 
che f(x) = 0. Molte volte otteniamo valori di x per i quali 
f(x)~ 10 ' con 7^ z^ 10: approssimazioni, comunque, 
soddisfacentissime. Dobbiamo allora ordinare al com¬ 
puter di fermarsi quando, attraverso la ripetuta applica¬ 
zione della formula iterativa, trova per la x valori, cia¬ 
scuno dei quali è uguale al precedente, cioè quando il 
valore della x non cambia più. L’uso del programma per 
risolvere diversi tipi di equazioni ci consente inoltre di 
notare (visualizzando sullo schermo il valore di x ad 
ogni iterazione) che non sempre, alla fine, x»= x--i= Xn 
2 = Xn <(con Xn indichiamo il valore finale della x, quello 
che soddisfa l’equazione). Talvolta risulta invece: x..= x.. 
-?=x» 4 e x .»-1 — xn >= x.» 5 oppure x.i=xn j= Xn <.exn-i 
= x« i = Xn-ie x» := x«-s= x.-». A un certo punto la x 
continua ad assumere i medesimi 2 o 3 valori (anziché 


Listato 1. Il programma Newton. 

10 REM NEWTON’S METHOD FOR SOLVING 
EQUATIONS BY ALBERTO BOSONI 
15 PRINT"[<1CLR>]":DIMX(1 000) 

20 N=1 :INPUT"X";X 
40 Y= 

50 Yl = 

55 IF Yl=0 THEN 20 
60 R=X-(Y)/(Yl) 

100 N=N+1:X=R:X(N)=X 

110 IF Y=0 THEN 140 

120 IF N<6 THEN 40 

130 IF X(N)<>X(N-6) THEN 40 

140 PRINT"[<1RVS>]N="N;"Y="Y;"[<1RVS>]X 

(N)="X(N) 

1 50 END 


uno solo); essi generalmente differiscono fra di loro di 
I/I0 9 , ma possono anche non differire fino alla nona 
cifra (l’ultima che ci fornisce il computer, che però 
lavora su 12 cifre); in tal caso ci accorgiamo che devono 
essere differenti almeno dalla decima cifra, perché fan¬ 
no assumere alla y (anch’essa visualizzata sullo scher¬ 
mo) valori lievemente differenti (anche in questo caso la 
differenza è nell’ordine dei miliardesimi). Il computer 
stampa i valori di n,y,x quando x(n) = x(n — 6) (vedi 
righe 130/140), in modo da soddisfare qualsiasi dei 
seguenti casi: x«= x -1 = x« - 2 = x» .<= ...; x..= x»- 2 = x n -< 

—- X n ■ Xn — Xn - 3 — X n - Xn X n - ft. 

La linea 110 soddisfa il caso in cui il metodo di Newton 
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Metodi 

di Newton_ 

converge (come si dice con linguaggio rigorosamente 
matematico) perfettamente (y = 0). 

N.R. Dimensionare la matrice a 1.000 (in realtà baste¬ 
rebbe anche a 500) significa limitare a 1.000 i tentativi 
che il computer può fare per trovare una soluzione. Se 
dopo 1.000 tentativi non perviene ad alcuna soluzione, 
sicuramente l’equazione non ne ammette (si ricordi a 
questo proposito che un’equazione di grado pari può 
non ammettere soluzioni, mentre un’equazione di grado 
dispari ne ammette almeno una). 

Un programma più specifico 

Servendoci del metodo di Newton abbinato al meto¬ 
do di Ruffini, abbiamo potuto realizzare un programma 
per la soluzione di equazioni di grado pari o inferiore 
all’ottavo, in x semplice. 

Viene trovata una prima soluzione mediante il metodo 
di Newton e poi l’equazione viene abbassata di grado 
mediante il metodo di Ruffini. 1 nuovi coefficienti ven¬ 
gono scritti in funzione dei precedenti e della x trovata. 
Facciamo un esempio di come funziona, sostanzialmen¬ 
te, il programma con un’equazione di quarto grado. 
f(x) = ex’ + fx 1 + gx 2 + hx 4- i 
Si tenga presente che a è il coefficiente del termine di 
ottavo grado, b quello del termine di settimo grado, c 
quello del termine di sesto grado, ecc. 

Con il metodo di Newton (con l’istruzione Input si 
introduce la prima approssimazione della radice) si tro¬ 
va x = xi; con il metodo di Ruffini otteniamo: 



e f 

g 

h 

i 

X 

ex 

x (ex + f) 

x (g 4- x (ex + 0) 

x (h + x (g + x (ex + f))) 


e, ex + F 

g + x (ex + f). 

h + x (g + x (ex + f)) 

0 


Listato 2. In questo programma viene applicalo 
il metodo di New ton e Ruffini. 


10 

REM SOLUTION OF EQUATIONS UP TO 8TH 


20 

REM DEGREE BY MEANS OF NEWTON 1 S, 


30 

REM RUFFINI’S AND QUADRATIC EQUATIONS 

40REM METHODS BY ALBERTO BOSONI 


50 

PRINT" [ <1CLR> ] ":DIMX(1000):INPUT "X, 

A, 

B,C 

/ D,E,F,G,H,I";X,A,B,C,D,E,F,G,H ( I 


100 

GOSUB800:PRINT" [< 1RVS> ] Xl="X 


1 1 0 

IF A=0 AND B= 0 AND C = 0 AND D = 0 AND 

E= 

0 THEN 650 


150 

R=F+X*(E+X*(D+X*(C+X*(B+A*X) ) )) 


1 60 

I=H+X*(G+X*R):H=G+X*R:G=R 


170 

F=E+X*(D+X*(C+X*(B+A*X) )) 


180 

E=D+X*(C+X*(B+A*X)):D=C+X*(B+A*X) 


190 

C=B+A*X:B=A:A=0:INPUT"X"; X 


200 

GOSUB800:PRINT" [ <1RVS>]X2="X 


250 

S=F+X*(E+X*(D+X*(C+B*X) )) 


260 

I=H+X* (G+X*S ) : H=G+X*S : G=S 


270 

F=E+X*(D+X*(C+B*X) ): E=D+X*(C+B*X) 


280 

D=C+B*X:C=B : B=0 : A=0 : INPUT"X" ; X 


300 

GOSUB800:PRINT" (< 1RVS> ] X3="X 


350 

T=F+X*(E+X*(D+C*X) ) 


360 

I=H+X*(G+X*T):H=G+X*T:G=T 


370 

F=E+X*(D+C*X) : E=D+C*X : D=C 


380 

C=0 : B=0 : A=0 : INPUT"X";X 


400 

GOSUB800:PRINT" [< 1RVS> ] X4="X 


450 

U=F+X*(E+D*X) 


460 

I=H+X*(G+X*U):H=G+X*U:G=U : F=E+D*X 


470 

E=D:D=0:C=0:B=0:A=0:INPUT"X";X 


500 

GOSUB800:PRINT" [< 1RVS>]X5="X 


550 

I=H+X*(G+X*(F+E*X) ) : H=G+X* (F+E*X) 


560 

G=F+E*X:F=E:E=0:D=0:C=0:B=0:A=0 


570 

INPUT"X";X 


600 

GOSUB800:PRINT"[<1RVS>]X6="X 




e, ex + f, g + x(ex + f), h + x (g + x (ex + 0) sono i 
coefficienti della nuova equazione di terzo grado, che 
poniamo rispettivamente uguali a f, g, h, i. Riapplican¬ 
do il metodo di Newton (si introduce nuovamente una 
prima approssimazione della radice) troveremo una se¬ 
conda soluzione dell’equazione originaria (che soddisfa 
anche quella abbassata di grado) x = X 2 , e con il metodo 
di Ruffini abbassiamo nuovamente il grado dell’equa¬ 
zione: 



f g 

h 

i 

X 

fx 

X (g + fx) 

x (h + x (g + fx)) 


f g + fx. 

h + x (g + fx) 

0 


f, g + fx, h + x (g + fx) sono i coefficienti della nuova 
equazione di secondo grado, che poniamo uguali a g, h, 
i, per applicare, questa volta, la formula risolvente per le 
equazioni di secondo grado. ■ 


Seguilo listalo 2. 

650 I=H+X*(G+F*X):H=G+F*X:G=F:F=0:E=0 

660 D=0:C=0:B=0:A=0 

670 VE H < '2-4*G*I<0 THEN END 

680 Z=H~2-4*G*I 

690 X7=(-H-Z)/(2*G):X8= (-H+Z)/(2*G) 

700 PRINT"[<1RVS>]X7="X7:PRINT"(<1RVS>] 

X8 = "X8: END 
800 N=1 

84 0 Y=A*X''8+B*X~7+C*X~6+D*X~5+E*X~4+F*X~3 
+G*X*2+H*X+I 

850 Yl=8*A*X~7+7*B*X~6+6*C*X~5+5*D*X~4+4* 

E*X~3+3*F*X~2+2*G*X+H 

900 K=X-(Y)/(Yl):N=N+1:X=K:X(N)=X 

910 IF Y=0 THEN 980 

920 IF N<12 THEN 840 

930 IF X(N)=0 THEN 840 

940 IF X(N)<>X(N-12) THEN 840 

980 PRINT"[<1RVS>]N="N;"i<1RVS>]Y="Y;"[ 

<1 RVS>]X(N)="X (N) 

1000 RETURN 
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istemi ridotti 


Totocalcio 

— Parie prima — 


Un programma 
per Apple II 
dotato di disk drive 
e stampante 

di Vincenzo Delle Cave 

^indubbio che senza una 
buona dose di fortuna non 
è possibile realizzare una 
vincita al Totocalcio. Basta pensare 
che le possibili colonne vincenti so¬ 
no 1.594.323 cioè tante quante sono 
le disposizioni con ripetizione di tre 
elementi (1, X, 2) di classe 13 (3 n ). 
Ora, è vero che più è elevato il nume¬ 
ro di colonne giocate c più aumenta 
la probabilità della vincita, ma è al¬ 
tresì vero che compilare un certo 
numero di colonne con criterio siste¬ 
matico anziché casuale garantisce 
una possibilità maggiore di vittoria. 
Il programma che vi propongo offre 
le seguenti possibilità: 

1 ) giocare un sistema ridotto e senza 
alcuna condizione con un qualun¬ 
que numero di doppie e triple; 

2) inserire un sistema personale; 

3) giocare un sistema precedente- 

mente inserito dando al computer 
solo lo sviluppo integrale. 

In questo articolo parleremo esclu¬ 
sivamente del punto I ), rimandando 
alla prossima puntata la discussione 
sugli altri due punti. 


Perché i sistemi ridotti 

Per sistema ridotto si intende un 
sistema che, a pronostico esatto, re¬ 
alizza sicuramente una vincita di se¬ 
conda categoria (12 per intenderci) 
riservando una certa probabilità 
(generalmente intorno al 10%) di re¬ 
alizzare il 13. Spegniamoci meglio 


con un esempio. 

Se si volesse giocare un sistema inte¬ 
grale di tre doppie occorrerebbe gio¬ 
care le seguenti 8 colonne: 

I 1 1 X X X 1 X 
1 X 1 I I X X X 
1 1 X I X 1 X X 

In questo caso saremmo sicuri di 
realizzare un 13 e tre 12, a pronosti¬ 
co esatto, a condizione di avere in¬ 
dovinato sia la scelta delle doppie 
che le dieci partite fisse. 

Possiamo seguire però un'altra filo¬ 
sofia: giocare un numero inferiore di 
colonne avendo però la certezza di 
realizzare almeno un 12. Sembrerà 
strano ai non addetti ai lavori, ma 
con sole due colonne è possibile rea¬ 
lizzare questo obiettivo. Le colonne 
sono, per esempio, le seguenti: 

I X 
1 X 
I X 

Qualunque sia la colonna vincente 
(ad esempio 1 X X) verranno realiz¬ 
zati due punti o nella prima o nella 
seconda colonna giocata (nel nostro 
caso nella seconda). La probabilità 
di realizzare tre punti è ovviamente 
2/8, cioè il 25%. Si definisce rappor¬ 
to di riduzione il rapporto tra il nu¬ 
mero di colonne del sistema integra¬ 
le e il numero di colonne del corri¬ 
spondente sistema ridotto (4 nel no¬ 
stro caso). La probabilità di realiz¬ 
zare la vincita piena è data ovvia¬ 
mente dal rapporto tra il numero di 
colonne del sistema ridotto e il nu¬ 
mero di colonne del corrispondente 
sistema integrale (cioè l’inverso del 
rapporto di riduzione). 

Tra i sistemi ridotti rivestono un 
ruolo particolare quelli cosiddetti 
“fondamentali”. Da tali riduttori 
vengono poi ricavati, aggiungendo 
un certo numero di doppie o triple 
integrali, tutti gli altri riduttori. Si 
consideri il seguente schema: 



Varianti doppie 

Varianti 0I2 3 4567X 
Triple t) - - 2 2 4 7 12 16 32 

1 - 3 3 6 8 16 24 48 96 

2 3 4 6 12 20 36 64 128256 

3 5 9 18 24 48 96 192 .. .. 

4 9 18 36 72 . 

5 . 

La tabella si legge in questo modo: 
l'indice di riga rappresenta il nume¬ 
ro di variabili triple e l’indice di co¬ 
lonna il numero di variabili doppie. 
Il contenuto di tale matrice dà il 
numero di colonne necessario per lo 
sviluppo del relativo sistema ridot¬ 
to. 

Ricordiamo che se x è il numero di 
doppie e y il numero di triple il nu¬ 
mero di colonne necessario per lo 
sviluppo di un sistema integrale di x 
doppie e y triple è (2') (2 y ). 

Per esempio dalla lettura della tabel¬ 
la risulta che un sistema ridotto di 7 
doppie e nessuna tripla consta di 16 
colonne, mentre il corrispondente 
sistema integrale richiede (2 * 2 3 * * * 7 ) (3°) = 
128 colonne. 

Il riduttore di 7 doppie è un ridutto¬ 
re fondamentale in quanto è costi¬ 
tuito da un numero di colonne sensi¬ 
bilmente inferiore di quelle che co¬ 
stituiscono il riduttore di 7 doppie 
che è possibile ricavare dal riduttore 
di 6 doppie con l’aggiunta di una 
doppia integrale. Non è cosi per il 
riduttore di 8 doppie, infatti come 
risulta dalla tabella un sistema ri¬ 
dotto di 8 doppie è sviluppabile con 
32 colonne. Tale sviluppo si ricava 
semplicemente dal riduttore fonda¬ 
mentale di 7 doppie (16 colonne) 
con l’aggiunta di una doppia inte¬ 
grale. (16x2= 32). Dalla tabella si 
vede anche che non esistono ridutto¬ 
ri fondamentali che contengano più 
di 4 triple. 

E su queste considerazioni che si ba¬ 
sa l’algoritmo usato nel programma 
che sviluppa i sistemi ridotti, 
il programma chiede di inserire il 
sistema che si vuole giocare, dopo di 
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il numero di colonne dello sviluppo, 
il numero di righe (n. doppie + n. 
triple), e l'indirizzo del record che 
conterrà tale riduttore (in figura I a 
fianco dello sviluppo sono riportati 
per comodità anche tali dati). Per 
esempio il riduttore di 7 doppie si 
sviluppa su 16 colonne, il numero di 
righe è 7 (ovvio), e il suo indirizzo è 
8 . 

Per verificare se il riduttore è stato 
inserito correttamente (potrebbe es¬ 
sere spiacevole accorgersene do¬ 
po..!!) riportiamo nel listato 2 un 
semplice programma di lettura- 
/scrittura (Leggisist). Tale pro¬ 
gramma chiede l’indirizzo del re¬ 


solo a questo punto, è possibile lan¬ 
ciare il programma Totocalcio (li¬ 
stato 3) che presenterà inizialmente 
il seguente menu principale: 

I ) sistemi ridotti; 

2 ) accetta sistema; 

3) gioca sistema; 

4) catalogo; 

5) inizializza archivio; 

6 ) fine. 

Digitare 1 inserire il sistema da gio¬ 
care, accendere la stampante e ... 
tanti auguri. 


Commento al programma 


che, se tale sistema è un riduttore 
fondamentale, effettua la trasfor¬ 
mazione dei segni sulle doppie (le 
doppie, per convenzione sono rap¬ 
presentate con IX; se vogliamo gio¬ 
care la doppia X2 è necessario sosti¬ 
tuire a tutti gli I dello sviluppo di 
quella doppia il segno 2) e stampa il 
sistema relativo; se invece il sistema 
che si vuole giocare è “più grande”, 
il programma sceglie il miglior ri¬ 
duttore fondamentale da cui è possi¬ 
bile ricavare con l’aggiunta di dop¬ 
pie e/o triple integrali il sistema vo¬ 
luto, effettua la trasformazione dei 
segni sulle doppie e stampa il siste¬ 
ma relativo. 


Come usare il programma 

La prima cosa da fare, un po’ 
noiosa, ma da eseguire una sola vol¬ 
ta, è quella di inserire i riduttori fon¬ 
damentali. 

Lanciare perciò il programma Crea- 
dir del listato I e digitare paziente- 
mente tutti i riduttori di figura I. 
Tale programma chiede nell’ordine 


cord ed il numero di righe dello svi¬ 
luppo (doppie + triple) e stampa lo 
sviluppo del riduttore inserito. 

Un consiglio: perdete un po’ di tem¬ 
po, ma verificate la correttezza di 
tutti i riduttori inseriti. Ricordiamo 
che poiché agli indirizzi I, 2, 9, 25 
non sono inseriti riduttori, se nel 
programma di verifica tentiamo una 
lettura in tali indirizzi, verrà data 
una segnalazione di errore. Una vol¬ 
ta inseriti i riduttori fondamentali, e 


Alcune linee non verranno com¬ 
mentate in questo articolo in quanto 
fanno riferimento alle opzioni 2 -r 6; 
ci riferiremo ad esse nella prossima 
puntata. 

12 - Caricamento della matrice M 
contenente l’indirizzo dei riduttori 
fondamentali del file Sistemi prece¬ 
dentemente introdotto. In tale ma¬ 
trice (5 x 8) (indice di riga = n. triple 
— 1 ; indice di colonna = n. doppie — 


" — " — . 

Listato I. //programma Creai/ir. 

10 0* = CHR* < 4) : DIM B*<9,65> 

20 HOME : INPUT "NUMERO COLONNE 
" ;NCS 

30 INPUT "NUMERO RIGHE “;NR 
40 INPUT "NUMERO RECORD ";IND 
50 L = 0 

60 FOR I = 1 TO NR 
70 HOME : PRINT "INSERIMENTO RIG 
A "; Is UTAB 5 
30 FOR J = 1 TO NCS 
90 L = L + 1 

100 PRINT L; : HTAB 15: INPUT B*< 
I , J) 

1 1 0 NEXT J:L = 0 

120 UTAB 22: PRINT "CONFERMATO? 

" ; : GET A* 


130 

IF A* 

< > "S" THEN 70 


140 

NEXT I 



150 

PRINT 

: PRINT D*;"0PEN SISTE 


MI,LI 100" 


160 

PRINT 

D 

D*;"WRITE SISTEMI,R" 

IN 

170 

PRINT 

NCS 


130 

FOR I 
NCS 

= 1 TO NR: FOR J = 1 

TO 

190 

PRINT 

UAL <B*<I,J)> 


200 

NEXT J 

: NEXT I 


210 

PRINT 

D$;"CLOSE SISTEMI" 


220 

HOME 



230 

PRINT 

"ALTRI SISTEMI <S/N> 

? 


";: GET A$: PRINT 


240 

IF A* 

= "S" THEN 20 


250 

END 
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Figura 1 . Tabella dei ridia tari fondamentali da memorizzare 

mediante il programma Creadir. 
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Libri firmati JACKSON 


Douglas Hergert 

IL BASIC NEGLI AFFARI 


Il libro insegna a leggere, scrivere e provare programmi 
BASIC per tipiche applicazioni da ufficio. 

Nei primi capitoli viene presentato il linguaggio BASIC 
e vengono descritti gli elementi fondamentali della 
programmazione. Ogni gruppo di istruzioni è poi 
illustrato con esempi di programmi relativi ad 
applicazioni per l'ufficio e con diversi esercizi; di alcuni 
di questi sono fornite le soluzioni. 

Completa il libro una breve introduzione ad altri tre 
linguaggi di programmazione: FORTRAN. COBOL e 
PASCAL, che vengono confrontati con il BASIC. 


202 pagine 


Codice 402H L. 18.000 


X.T. Bui 

LA GESTIONE AZIENDALE CON IL BASIC 

Il libro presenta i principali problemi di gestione 
aziendale, spiegandone i fondamenti teorici e la 
realizzazione in linguaggio BASIC. 

Con i numerosi esempi di applicazioni, ispirati a 
situazioni reali, l'autore vuole dimostrare che ogni 
responsabile, che debba prendere decisioni nell'ambito 
di un'azienda, può accedere direttamente al calcolatore 
e ottenere elementi di analisi, pianificazione e controllo. 

188 pagine 

Codice 403H L. 15.000 


Francis Samish 

GUIDA ALLA SCELTA DEL PERSONAL 
COMPUTER 

Il segreto per un acquisto intelligente sta nel conoscere 
bene che cosa si vuole ottenere e, in base a questo, 
quale hardware e quale software sono necessari. 
Questo libro affronta il problema in modo esauriente, 
fornendo un'ampia panoramica delle macchine che 
possono essere utili in casa e In ufficio, con il relativo 
software. 

Per chi già possiede un personal, fornisce utili 
indicazioni su come ottimizzarne l’utilizzo o completare 
il sistema. 

118 pagine 

Codice 4OOP L. 12.000 


GRUPPO 

IDfTORIALX 

JACKSON 


Attenzione compilare per Intero 
la cedola 

ritagliare (o fotocopiare) e spedire 
in busta chiusa a: 

GRUPPO EDITORIALE JACKSON 

Divisione Libri 
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Sistemi 

ridotti 

Totocalcio 


Listato 2. // programma Leggisist. 



130 NEXT I 

10 DIM B/<14,SO) 

140 PRINT : PRINT D*;"PR#0" 

20 D$ = CHR* (4) 

150 RETURN 

25 HOME 

160 PRINT : PRINT D$;"OPEN GISTE 

30 INPUT "NUMERO RECORD ";IND 

MI , LI 100" 

35 INPUT "NUMERO RIGHE ";NR 

170 PRINT D$;"READ SISTEMI,R"IND 

36 GOTO 160 


40 REM 

180 INPUT NCS 

50 POKE 1273,127: PRINT CHR$ <4 

190 FOR I = 1 TO NR: FOR J = 1 T0 

>;"PR#1" : PRINT CHR* <9);"1 

NCS: INPUT BX<I,J): NEXT J: NEXT 

32N": PRINT CHR* < 27>; CHR$ 

I 

< 20 ) : 

200 PRINT D*;"CLOSE SISTEMI" 

55 PRINT : PRINT : PRINT : PRINT 

210 K = INT <NCS / 16) + 1 


220 FOR LI = 1 TO K 

60 FOR I = 1 TO NR 

230 I1 = < LI -1) *16 + 1 

70 FOR J = Il TO FI 

240 IF II > NCS THEN 25 

80 .IF BX( I , J ) = 0 THEN PRINT "X 

250 FI = Il + 15 

"; : GOTO 100 

260 IF FI > NCS THEN FI = NCS 

90 PRINT BX<I,J);" " ; 

270 GGSUB 40 

100 QZ = INT <J / 4): IF QZ * 4 = 

280 FOR Q = 1 TO 5: PRINT : NEXT 

J THEN PRINT " ! ! "; 

Q 

110 NEXT J 

290 NEXT LI 

120 PRINT 

300 GOTO 25 


Listato 3. Il programma Totocalcio. L’istruzione 



1710 fa riferimento alla stampante parallela Ceti- 


60 HTAB 1: UTAB 24: PRINT "COSA 

tronics 739. Occorre modificarla se si utilizzano 


SCEGLI? GET B1$:B1 = UAL 

altre stampanti. 


<61$) 



65 IF B1 = 0 OR B1 > 6 THEN 60 

10 DIM A$<14,2),BX<14,200),CX<14 


70 ON B1 GOTO 1000,6190,5000,700 

,200>,M<14,14),A1$<14),DX<14 


0.7500,7900 

,300):D$ = CHR$ <4> 


1000 REM *** SISTEMI RIDOTTI ** 

11 ZT$ = "CARATTER.SI STEMA" 


* 

12 FOR I = 1 TO 5: FOR J = 1 TO 


1020 G0SU6 1610 

8: READ M(I,J>: NEXT J: NEXT 


1030 I = TS + 1 

I 


1040 J = DS + 1 

15 FOR I = 1 TO 9: READ ZC$< I ): NEXT 


1050 IF TS > 4 THEN I = 5 

I 


1060 IF DS > 7 THEN J = 8 

17 FOR I = 1 TO 9: READ ZL<I>: NEXT 


1070 IF M<I,J ) < >0 THEN TR = 

I 


I - 1 : DR = J - 1 : IND = M<I,J 

20 HOME 


): GOTO 1120 

30 INUERSE : HTAB 10: PRINT "T 0 


1080 FOR JJ = J TO 1 STEP - 1 

T O C A L C I O" 


1090 IF M < I ,JJ ) < >0 THEN TR = 

40 UTAB 4: HTAB 18: PRINT "O I": 


I - 1 :DR = JJ - 1 :IND = M<I, 

UTAB 7: HTAB 10: PRINT "DIN 


JJ): GOTO 1120 

CENZO DELLE CAVE": NORMAL 


1100 NEXT JJ 

50 UTAB 10: PRINT "1) SISTEMI RI 


1110 REM 

DOTTI”: PRINT : PRINT "2> AC 


1120 GOSUB 1410 

CETTA SISTEMA": PRINT : PRINT 


1130 FOR I = 1 TO 13 

"3) GIOCA SISTEMA": PRINT : PRINT 


1140 IF LEN <Al$<I>) = 1 THEN FOR 

"4) CATALOGO": PRINT : PRINT 


K = 1 TO NCS:CX<I,K) = UAL 

"5) INI ZIAL IZZA ARCHIVIO": PRINT 


< A1 $<I> >: NEXT K 

: PRINT "6> FINE 


1150 NEXT I :L = 0 
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Sistemi 

ridotti 

Totocalcio 


Segnilo listalo J. 

1160 FOR I = 1 TO 13 
1170 IF LEN <A1*(I)) < > 2 THEN 

1250 

1180 L = L + 1 

1190 1F L > OR THEN 1270 

1200 RB = L 

1210 GOSUB 1430 

1220 FGR N = 1 TO NCS 

1230 CX < I ,N ) = BX(RB,N) 

1240 NEXT N 
1250 NEXT I 
1260 GOTO 1310 
1270 FOR N = I TO 13 
1230 IF LEN <A1*(N>) < > 2 THEN 

1 300 

1290 GOSUB 1580 
1300 NEXT N 
1310 L = 0 

1320 FOR I = 1 TO 13 
1330 IF LEN <A1*<I>> < > 3 THEN 

1380 

1340 L = L + 1 

1350 IF L > TR THEN FOR Z = 1 TO 
NCS:CX<I,Z) = 6: NEXT Z: GOTO 
1380 

1360 RB = L + DR 

1370 FOR N = 1 TO NCS:CX(I,N> = 
BX(RB.N): NEXT N 

1380 NEXT I 

1381 K = INT (NCS / 16) + 1 

1382 FOR LI = l TO K 

1383 I1 = (LI - 1) * 16 + 1 

1384 IF I1 > NCS THEN 20 

1385 FI = I1 + 15 

1386 IF FI > NCS THEN FI = NCS 

1387 GOSUB 1700 

1333 FOR Q = 1 TO 5: FRI NT : NEXT 
Q 

1389 NEXT LI 

1390 REM 
1400 GOTO 20 

1410 PRINT : PRINT CHR* <4);"0P 
EN SISTEMI,LI 100" 

1420 PRINT CHR* (4);"READ SISTE 
MI,R"IND 
1430 INPUT NCS 
1440 FOR Z = 1 TO TR + DR 
1450 FOR W = 1 TO NCS 
1460 INPUT BX(Z,W): NEXT W: NEXT 
Z 

1470 PRINT CHR$ <4>;"CL0SE SIST 
EMI": RETURN 

1430 IF A1*(I) = "IX" OR A1*(I> = 
"XI" THEN RETURN 

1490 IF A1*(I> = "12" OR A1*<I> = 
"21" THEN GOSUB 1540: RETURN 

1500 FOR Z = 1 TO NCS 


1510 

IF BX< RB,Z) = 1 THEN BX(RB, 

Z> = 2 

1520 

NEXT Z 

1530 

RETURN 

1540 

FOR Z = 1 TO NCS 

1550 

IF BX(RB.Z) = 0 THEN BX< RB, 

Z) = 2 

1560 

NEXT Z 

1570 

RETURN 

1580 

IF A1$(N) = "IX." OR A1*(N> = 

"XI" THEN FOR Z = 1 TO NCS: 

CX(N,Z> = 3: NEXT Z: RETURN 

1590 

IF A1*(N> = "X2" OR A1*(N) = 

"2X" THEN FOR Z = 1 TO NCS: 

CX<N,Z) = 4: NEXT Z: RETURN 

1600 

IF A1*(N> = "12" OR A1$(N) = 

"21" THEN FOR Z = 1 TO NCS: 

CX(N,Z> = 5: NEXT Z: RETURN 

1610 

REM INPUT SISTEMA 

1620 

HOME 

1630 

PRINT "PARTITA";: HTAB 26: PRINT 
"RISULTATO" 


INCISIVA. 
PENETRANTE. 
EFFICACE. 


Cosi In sintesi 
una produttiva azione 
promozionale. 

l'Annuario Generale Italiano 
viene letto da esponenti 
politici, governativi 
amministrativi e delle 
maggiori imprese 
bancarie e finanziarie 
Aggiornato in tempo reale 
rappresenta una fonte valida e attendibile 

per orientare il marketing 
e raggiungere con successo 





GUIDA MONACI 

ANNUARIO GENERALE ITALIANO 


00187 Roma via F.Cnspi.lO te).(06)483401 / 20145Milano v.a V.Monti.86 lel.(02)3458567 
Tele* 613462 MONACI / Telex 332849 MONACI 


69 













Seguito listato 3. 


1803 NEXT J 



1805 PRINT 

1632 FOR I = 1 TO 13 


1810 NEXT I 

1634 HTAB 4: VTAB 1+4: PRINT I 


1820 PRINT : PRINT D*;"PR#0" 

51 HTAB 30s INPUT jAl*<I)s 


1850 RETURN 

KK* = A1*(I): GOSUB 8000 


1860 REM 

1636 IF KO = 1 THEN KO = 0 : GOTO 


3000 REM *** VERIFICA SEGNO *** 

1634 



1637 NEXT I 


8005 IF LEN (KK*) = 0 THEN KO = 

1638 VTAB 23: PRINT "CONFERMATO? 


1 : RETURN 

<S/N) GET KX*: IF KX* = 


8010 IF LEN (KK*) = 1 AND KK* < 

"N" THEN 1620 


> "1" AND KK* < > "X" AND 

1640 TS = 0:DS = 0 


KK* < > "2" THEN KO = 1 : RETURN 

1650 FOR I = 1 TO 13 



1660 IF LEN <Al*(I)) = 2 THEN D 


8020 IF LEN (KK*) = 2 AND KK* < 

S = DS ♦ 1: GOTO 1680 


> “IX" AND KK* < > "XI" AND 

1670 IF LEN <A1*<I)> = 3 THEN T 


KK* < > "X2" AND KK* < > " 

S = TS + 1 


2X" AND KK* < > "12” AND KK 

1680 NEXT Is RETURN 


* < > "21“ THEN KO = 1 : RETURN 

1700 REM STAMPA 



1710 POKE 1273,127: PRINT CHR* 


8030 IF LEN < KK*) > 3 THEN KO = 

< 4);"PR#1": PRINT CHR* <?); 


1 : RETURN 

"132N": PRINT CHR* (27); CHR* 


8040 IF LEN <KK*) - 3 AND KK* < 

( 20 ) ; 


> "1X2" AND KK* < > "12X" AND 

1720 FOR I = 1 TO 13 


KK* < > "X21“ AND KK* < > 

1730 FOR J = Il TO FI 


"XI2" AND KK* < > "2X1“ AND 

1740 IF CX(I,J) = 0 THEN PRINT 


KK* < > "21X" THEN KO = 1 : RETURN 

"X " 5 : GOTO 1800 


8050 KO = 0: RETURN 

1745 IF CX.(I.J) = 3 THEN PRINT 


11000 DATA 1,2,3,4,5, 6 ,7,8,9, 

"IX "; : GOTO 1800 


10,11,12,13,14,15,0,16,17,18 

1750 IF CX(I,J) = 4 THEN PRINT 


,19,20,21,22,0,23,24,0 ,26,0 

11 X2 “ j : GOTO 1800 


,0,0,0,27,0,0,0,0,0,0,0 

1755 IF CX<I,J) = 5 THEN PRINT 


11100 DATA TRIPLE RIDUTTORE,DOP 

"12 “; : GOTO 1800 


PIE RIDUTTORE,N.COLONNE-SCHE 

1760 IF CX<I ,J) = 6 THEN PRINT 


DINA,N.COLONNE-SI STEMA,NOTE 

"1X2 GOTO 1800 


1.NOTE 2,NOTE 3,NOTE 4,NOTE 

1770 PRINT CX(I ,J> 5 " " ; 


5 

1800 QZ = INT <J / 4): IF QZ * 4 


11200 DATA 2,2,4,4,32,32,32,32, 

= J THEN PRINT " ! ! “ ; 


32 


I ) vi è 0 se il relativo riduttore non è 
fondamentale. 

20-70 - Presentazione del menu prin¬ 
cipale. 

1610-1680 - Routine di inserimento 
del sistema da giocare. Le variabili 
TS e DS contengono il numero di 
triple e di doppie del sistema. 
1030-1100 - Routine che calcola l’in¬ 
dirizzo del riduttore fondamentale 
che costituirà la base del sistema da 
giocare. 

1130-1380 - Routine che effettua il 
cambiamento di segno nelle doppie 
e che inserisce nel sistema le even¬ 
tuali doppie e triple integrali. La 


matrice C% è la matrice che contie¬ 
ne lo sviluppo del sistema con la 
seguente codifica: X = 0; 1 = I ; 2 = 
2; 3 = IX; 4 = X2; 5 = 12:6= 1X2. 
Vengono chiamate la subroutine 
1480-1570 per il cambiamento dei 
segni nelle doppie e la subroutine 
1580-1600 per la codifica delle even¬ 
tuali doppie e triple integrali. 
8000-8050 - Subroutine di verifica 
della validità del pronostico inseri¬ 
to. 

1700-1850 - Subroutine di stampa 
del sistema. Viene stampato il siste¬ 
ma ridotto in gruppi di 4 colonne 
per una più semplice trascrizione 


nelle schedine. 

1410-1470 - Subroutine di lettura del 
riduttore fondamentale. 

Significato delle principali variabili 

M - Matrice indirizzi riduttori fon¬ 
damentali 

B% - Matrice riduttore fondamenta¬ 
le (il segno X è codificato con 0) 
C% - Matrice riduttore sviluppato 
Al$ - Vettore sistema da giocare 
TS - Numero triple sistema 
DS - Numero doppie sistema 
NCS - Numero colonne sviluppo. 
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STRAORDI 

PER UNO STRAOROI 




120 IDEE SU 63 ARGOMENTI 

Animazioni - Architetti - Arredamento - Automobili - 
Banche Barche - Brevetti - Business grafica-.- Carte 
intestate - Cgrielll indicatori Cataloghi - Cinema - 
Qjrìfcuiti integrati - Convègni/Corsi- Descrizioni - 
Design - Dentisti - Disegnatori - Economia/Finanza - 
Edilizia - Editoria - |Llettricisti - Elettronica - Enigmistica 

- Esercito - Falegname - Fonts - Fumetti J 
Giardinaggio * Girelli - Graffiti - Grafici - Identikit - 
Informatica - immagini grafiche - Ingegneria - Linee 
aeree - Marchi industriali - Mobili -, Moda - 
Modellistica - Mostre/Saloni - Moto - Musica - Negozi 

- New York - Organigrammi - Orologi - Piante stradali 

- Pittura - Pubblicità - Regali - Robot - Scacchi - 
Scultura - Scuola - Simboli - Simmetrie - Space shuttle 

- Topografia - Urbanistica - Videogiochi - Vignette. 
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Q uadrati 
per Spectrum 


Impazzirete 

nel tentativo di battere 

lo Spectrum 

di Anacleto Furiati 

Q uesto programma propo¬ 
ne il gioco Quadrati (o Bat¬ 
taglia sui quadrati ), un gio¬ 
co di strategia che si svolge su una 
scacchiera ad un colore (qui di 8 x 8 
caselle). 

Le regole sono semplici: due gioca¬ 
tori mettono, alternativamente, la 
loro pedina su una casella non occu¬ 
pata (da dove non verrà più sposta¬ 
ta); scopo del gioco è piazzare le 
proprie pedine ai vertici di quadrati i 
cui lati debbono essere orizzontali e 
verticali. 

Ad esempio nella figura la chi pos¬ 
siede le pedine O ha già realizzato un 
quadrato perché le pedine 
B2,B4,D4,D2 si trovano ai vertici di 
un quadrato; il giocatore che tiene le 
O ha quindi guadagnato un punto. 
Anzi, dovendo ora mettere ancora 
O, se occupasse la casella B1 realiz¬ 
zerebbe un altro quadrato (di vertici 
Al, A2, B2, Bl). Successivamente 
però, se la pedina X occupa la casa 


D5 si vengono a formare ben due 
quadrati, di vertici A5, A8, D8, D5e 
D3, D5, F5, F3. Pertanto è più con¬ 
veniente per O occupare D5 anziché 
Bl: potrà così mantenere il vantag¬ 
gio di un punto. 

La partita termina quando ogni 
giocatore ha sistemato le proprie 32 
pedine, cioè quando la scacchiera è 
stata completamente riempita. Vin¬ 
ce chi è riuscito a realizzare più qua¬ 
drati. 

Come il lettore potrà notare si tratta 
di un gioco ricco di colpi di scena: 
soprattutto in Finale di partita non è 
raro capovolgere la situazione, tro¬ 
vando una mossa che può realizzare 
anche più di due quadrati contem¬ 
poraneamente. 

Il programma offre tre opzioni di 


gioco: l’utente può giocare contro 
un’altra persona, sfidare lo Spec¬ 
trum, studiare il gioco dello Spec¬ 
trum contro se stesso. 

Nel primo caso lo Spectrum si limita 
a gestire il gioco arbitrando, aggior¬ 
nando il punteggio realizzato dai 
contendenti e dichiarando il vincito¬ 
re o la parità. 

Nella seconda opzione, oltre ad ope¬ 
rare imparzialmente come nella pri¬ 
ma, lo Spectrum si cimenta nei pan¬ 
ni di avversario. In un tempo medio 
di riflessione di 40 secondi per mos¬ 
sa procurerà una certa irritazione a 
molti avversari, soprattutto verso il 
finale, quando più complicata è la 
situazione sulla scacchiera e mag¬ 
giori sono le possibilità di circoscri¬ 
vere quadrati. Per gratificare molti 


Figura 1. Dieci esempi con varie situazioni sulla scacchiera. 
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Come si vede sono quattro e non 
possono esistere altri quadrati di 7 
caselle di lato. 

Proseguiamo in tale indagine e 
costituiamo ora il gruppo dei qua¬ 
drati di lato 6 caselle. La figura 1 d ci 
mostra tutti i possibili casi; i quadra¬ 
ti hanno i seguenti vertici: Al, A6, 
F6, FI; Bl, B6, G6, G 1; C1,C6, H6, 
HI; A2, A7, F7, F2; B2, B7,G7,G2; 
C2, C7, H7, H2; A3, A8, F8, F3; B3, 
B8, G8, G3; C3, C8, H8, H3. In 


caselle. Immaginiamo di avere a di- 
sposizioneinaterialmenteunquadra- 
to di lato 7: spostandolo sistemati¬ 
camente nelle posizioni possibili do¬ 
vremmo fargli occupare 4 posizioni 
diverse. La prima posizione potreb¬ 
be essere quella di figura le; spo¬ 
standolo verso destra, senza abbas¬ 
sarlo, occuperemo il secondo qua¬ 
drato elencato sopra. Abbiamo così 
esaurito le posizioni aderenti al bor¬ 
do superiore della scacchiera. Ab- 


utenti c’è la possibilità di rendere 
meno forte il gioco dello Spectrum, 
sfidandolo ai livelli 1 e 2 anziché al 3, 
il massimo. Ai livelli inferiori il tem¬ 
po medio di riflessione per mossa 
dello Spectrum è minore; di 35” per 
il 2 e di meno di 30” per PI. 

Nell’ultimo caso lo Spectrum sfi¬ 
da se stesso al livello più forte; osser¬ 
vandone il gioco si può migliorare la 
propria strategia. 


L'aspetto matematico 

Alcuni lettori penseranno ora che 
questo gioco sia limitato a causa del 
numero di quadrati teoricamente 
realizzabili; tuttavia tale limite non è 
così basso come si potrebbe pensare. 
Per trovarlo, supponiamo che gio¬ 
chi una sola persona con 64 pedine 
uguali. Suddividiamo i quadrati rea¬ 
lizzabili in gruppi, ciascuno formato 
da quadrati uguali, partendo dai 
quadrati più grandi: il primo avrà 
lato uguale a 8 caselle come in figura 
I b, c sarà evidentemente l’unico rea¬ 
lizzabile. Formiamo ora il gruppo 
successivo, composto da quadrati di 
7 caselle di lato, come in figura le. I 
quadrati hanno i seguenti vertici: 
Al, A7, G7, Gl; Bl, B7, H7, HI; 
A2, A8, G8, G2; B2, B8, H8, H2. 


tutto sono 9. Chi ha un po' di dime¬ 
stichezza con i numeri ha ormai ca¬ 
pito tutto: il numero dei componenti 
i vari gruppi è passato da 1 a 4 a 9, e 
questi numeri sono i quadrati di 1,2, 
3. Osserviamo che, per i tre casi con¬ 
siderati, esiste una relazione fra il 
lato di un quadrato ed il numero dei 
quadrati aventi tale lato; infatti se 
consideriamo il lato = 8, il numero 
dei quadrati aventi tale lato si ottie¬ 
ne sottraendo 8 da 9 e moltiplicando 
per se stesso questo risultato (= 1 2 = 
1); per il lato = 7: (9 - 7) 2 = 2 2 = 4; 
per il lato = 6: (9 — 6) 2 = 3 2 = 9. Ci si 
aspetta dunque che il gruppo succes¬ 
sivo, quello formato da quadrati di 
lato 5 caselle, sia formato da (9 — 5) 2 
= 4 2 = 16 componenti. Infatti ècosì. 

Per renderci conto del perché di 
questa regola analizziamo la figura 
le, quella dei 4 quadrati di lato 7 


bassiamolo di una casella e piazzia¬ 
molo, per cominciare, sulla sinistra 
(terza posizione elencata), poi sulla 
destra (quarta posizione). Notiamo 
che nelle ultime due posizioni i qua¬ 
drati aderiscono al bordo inferiore 
della scacchiera e che, pertanto, non 
si potrà più abbassare il quadrato 
mobile. Riassumendo questa prima 
esperienza, possiamo concludere 
che per ciascuna delle due righe di 
scorrimento di un lato orizzontale di 
prova, le posizioni possibili sono 
due, pertanto il numero totale di po¬ 
sizioni è 2 x 2 = 4. 

Allo stesso modo si può procede¬ 
re con i quadrati di lato 6 caselle: 
avremo tre posizioni finché un lato 
aderisce al bordo superiore della 
scacchiera, le righe di scorrimento in 
cui si potrà disporre lo stesso lato 
sono in tutto 3, quindi il totale delle 
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Quadrati 
per Spectrum 


Listato 1. Il programma per lo Spectrum 48 Kbyte. 


iWm <p !M u BR??Tìi 

Uiaia Papa Giovar 


c _ a». 

Anaciato Furian 
_ Giovanni 35/1© 
31015 Conegiiano (TU) 

30 GO SUB 3610: GO SUB 1610 
4.0 BORDER 1: PAPER 1: 1NK 7: C 
LS : GO SUB 3910: GO SUB 2710: G 
O SU B 301 0: GO TO 2010 
l00BraaS Ricarca quadrati Spec- 
trum 

110 IF tot«63 THEN GO TO 1310 
120 PRINT BRIGHT 1;AT 20,3;"8 T 
0 PENSANDO!"; BRIGHT 
0; AT 21, il; " ( liva Uo liv;")": 
LET Lato*© 

130 LET La to ■ la to +1 

140 IF Lato<8 THEN GO TO 210 

150 GQ T O 710 

200ÌBMIÉI Subruotina assegnazio¬ 
ne di punteggio alia casella 
310 FOR mal TO 8-iatO: FOR n«l 
ro 8-iato 

220 LET L ani flato: LET 0 *n + iatO 
230 LET q$«d* <m ,n)+d* < l ,n)+d* ( l 

.o)+d s (m ,0) _ 

240 IF q**" " THEN GO TO 390 

245 IF qt ( 1) < >" " AND q* (3) < > 

■ AND q*(3) <>" " AND q*(4)<>' 
THEN GO TO 390 
250 IF q»*" XXX" OR 

hen let eTm,n> «e (m ,n) 

0 390 


qia" 000 " 
+1000 : GO 


260 IF q**"X 
HEN LET a(l,n) 


0 390 
270 IF 
HEN LET 
0 390 
260 IF 
HEN LET 
0 390 
285 IF 
290 IF 
HEN LET 
( i , n ) *e 
300 IF 
HEN LET 
( i, o ) *e 
310 IF 
HEN LET 
(Uo) *a 
320 IF 
HEN LET 
(m,o)«a 
330 IF 
HEN LET 
( ni, o ) *e 
340 IF 
HEN LET 
(m,o)*e 
345 IF 
350 IF 
HEN LET 


XX" OR 
*e <i,n) 


q|*"XX X" OR 
a ( i , 0 ) se ( i ,o) 


q»*"XXX 
eTm,o) *e (m ,o) 


?! 

OR qt* 
+ 10 


"00 

000 : 


00 " 

GO 

0" 

GO 


000 " 
©00 : GO 


GO TO 390 
q»a” 00" 
+100: LET 
TO 390 

0 0" 
LET 

)90 

q ta"0 0" 

+100: LET 
TO 390 


I U 

qfa" 1 
1 +10®: 
TO 39' 


"0 


0 " 
LET 


li V*1 THEN 
q»a" XX" OR 
e(m ,n) «e (m ,n) 

(l,n)+100: GO 
q*a" X X" OR 
alm,n)aa(m ,n) 

(1,0) +100: GO 
q»*"X X" OR 
a ( i ,n) *a ( l ,n) 

(1,0) +100: GO 

q l * " x x " or q 
a(i,n)a«(i.n) + 

(M,0)+100: GO T 
qta-XX " OR q|*"0 ^ 

a( l , 0 ) aa ( l ,0) +100: LET 
(m,0)+100: GO TO 390 
q»a" XX " OR q*a" 00 " 
e(m,n)*a(m,n)+100: LET 
(Itt ,0) +100: GO TO 390 
liV*2 THEN GO TO 390 
q$a"X " OR qia"0 
a ( i ,n) *e ( i ,n) +10: 

L , 0 ) sa(l,0)+10: LET e (m ,o) 
i+10: GO TO 390 
360 IF q*a" X " OR qi*" 

hen let a (m ,n) *a (m^n)+10: 

L ,0 ) sa ( l ,0 ) +10 : 

1+10: GO TO 390 
370 IF q$s" X 
HEN LET e(m,n)aa 


T 

a 

T 

a 

T 

e 

T 

a 

T 

a 

T 

a 


T 

LET a ( 
*a <m, o 


0 
LET 


T 

a ( 


S III ili f T . W»h. I N 

LET e(m,o)*a (m ,o 


" OR 
( m , n ) 


q$a" 

+ 10 : 


0 

LET 


* T 

a ( 


i ,n ) *a ( i ,n )+10 : LET e(m,o)*e(m,o 
i+10: GO TO 390 „ 

380 IF qa*" X" OR q$■ 0 T 

hen let aTm ,n)*a(»,n)+10: let a( 
i ,n) *e ( l ,n)+10: LET e(i,o)*a(l,o 
) +10 

390 NEXT n: NEXT m: GO TO 130 


700É93ÓB Aggiunta dal puntaggio 
di probabilità' _ „ 

710 FOR mal TO 8: FOR n»l TO 8: 
IF d| (m, n) <>" “ 1 — ‘ ‘ 

: GO TO 
0 LET a 
0 NEXT r 
©pBODQl * 


j n > < ì THEN LET a (m , n ) 
0 TO 730 , 

720 LET a (m ,n) aa (m ,n)+p (m ,n) 

730 NEXT n: NEXT m 
800HODBÉ Scalta casaila a pun-, 
leggio max a indirizzamento a vi 
sua lizzazione _ 

810 DIM K (64) : FOR mal TO 8: FO 
R 1*1 TO 8; LET k U» -1) *8 + l ) se (m 
. I) : NEXT l: NEXT m 
320 LET iaxs0 : FOR nal TO 63 
830 IF k (n+1) >k (n-lax) THEN LET 
k(n-lax)* -1: GO TO 850 
840 GO TO 870 _ . 

850 IF lax >0 THEN GO SUB 980 
860 NEXT n: GO TO 890 
370 IF k (n+1) *k (n-lax) THEN LET 
lax=iax+l: NEXT n: GO TO 890 
880 LET k(n+l)«-l: LET lax*iax + 
1: NEXT n . 

390 LET Z *0: FOR n*l TO 64 
900 IF K(n)>-1 THEN LET Z«Z+1: 
LET w*n 

910 NEXT n: LET j* 0 
920 IF Zìi THEN GO TO 950 t 
930 LET nmax*l+INT (Z*RND): FOR 
W=1 TO 64: IF k(w)=-l THEN NEXT 

w 

940 LET jaj+ 1 : IF j<nmax THEN N 
EXT W 

950 LET alai: IF 
2*w: GO TO 1780 
960 LET alaa1+1: LET 
w <9 THEN LET a2*w: GO 
970 GO TO 960 
980 FOR Wal TO n : IF 
HEN LET k (W)a-1 
990 NEXT w: LET lax*0: 

L000HUQBM Contai 
1010 


ui <9 THEN LET a 


W «W -8 
TO 17 


80 


IF 


k (w ) < > -1 T 
RETURN 


>90 NEXT W. - - J , 

)00flu8M Conteggio quadrati 
)10PR1NT AT 28,3;" 

• • q-f- g ^ 11 ’ M 

IF tot <6 THEN'RE+URN 
IF q >0 THEN LET_ f Lash*0: G£ 


IF q > 
1090: 


GO SUB 1660: GO SUB 


1020 
SUB 
090 

1030 LET q$ama+m|+m*+mt: DIM q(l 
0,3): LET q *0 : LET lato»©; IF m« 
s"X" THEN LET qx*0: GO TO 1050 
1040 LET qo*0 

1050 LET iatoaiato+1 „ , _ 
1060 IF lato<8 THEN GO TO 1110 
1070 IF q >0 THEN GO SUB 1680 
1080 RETURN 

1090 LET m$a("0" AND m»*“X")+("X 
‘ AN D raM* "0"): RETURN 
U00BOD1 Subruotina ricarca qua 
d r a 1 1 

ilio FOR m»l to 8-iato 

1120 FOR nal TO 8-iato 

1130 IF d* (m ,n)+dt (m + iato ,n)+d* ( 

m+iato,n+iato>+d*Tm,n+iato)*qt T 

HEN GO SUB 1180: IF al*m AND a2* 
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AFTIDA I TUOI DATI i 



A 


Come editori di 
software, abbiamo 
sentito l'esigenza di 
utilizzare,per fa produ¬ 
zione dei nostri program¬ 
mi, un supporto particolar¬ 
mente affidabile. Dopo severi 
ed accurati test abbiamo opera¬ 
to la scelta. Siamo lieti di propor¬ 
lo con il nostro marchio a chiunque 
desideri lavorare con la nostro stessa 
tranquillità. Floppy disk do 5" 1/4, sin¬ 
gola faccia, doppia densità, in confezione 
da 10 dischetti. Ordine minimo 10 dischetti. 
Ordini superiori solo multipli di 10 secondar lo 
seguente scala di prezzi 
10 dischetti L. 5.000 cad. 

do 20 o 50 dischetti L. 4.700 cad. 

da 60 a 100 dischetti L. 4.400 cad. 

do 110 dischetti e oltre L. 3.900 cad. 

I prezzi sono comprensivi di IVA e spese di spedizione. 


Per ordinare ritagliate e spedite il tagliando sotto riportalo a 
i.soft Viale Restelli, 5 - 20124 Milano 
Tel. 02/6888228 - 683797 • 6880841 - 6880842 - 6880843 


vi disk 



soft 


CEDOLA DI ORDINAZIONE OFFERTA DISCHETTI 

Da compilare e spedire in busta chiusa a 
J. soft - Viale Restelli, 5 - 20124 Milano 
Tel. 02/6888228 - 683797 - 6880841 - 6880842 - 6880843 


Ordino i seguenti dischetti, in confezione da 10 pezzi cad., per un importo 
totale di L. IVA e spese di spedizione incluse. 

□ N. dischetti (minimo 10 e multipli di 10) 

□ Contanti allegati 

□ Assegno allegato n° . 

□ Ho spedito l'importo o mezzo vaglio postale 

□ Ho versato l'importo sul CCP n° 19445204 intestato a J. soft - Milano 

□ Pagherò in contrassegno al postino al ricevimento dei dischetti 


Nome . 

Cognome . 

Via . 

CAP . Città . Prov. 

Se richiesta fattura - codice fiscale . 

Data ... Firma . 

Offerta valida solo per l'Italia. 




























sarà sicuramente inferiore a 140, 
perché non si potranno più sfruttare 
tutti i vertici che i quadrati possono 
avere in comune. Quanto sarà tale 
numero? Affinché sia il massimo, 
bisogna spartire opportunamente 
fra i giocatori la scacchiera, cioè da¬ 


di algoritmi 

Il compito più utile dello Spec- 
trum, durante l’arbitraggio di que¬ 
sto gioco, è sicuramente il conteggio 
dei quadrati realizzati da ogni gioca¬ 
tore. 


Quadrati 
per Spectrum 

posizioni possibili è 3 x 3 = 9. E così 
via, diminuendo il lato del quadra¬ 
to, finché arriviamo ai quadrati mi¬ 
nimi, di 2 caselle di lato. 

Per trovare il numero totale di qua¬ 
drati riportiamo in una tabella i ri¬ 
sultati trovati: 


Numero caselle 
di lato 

Numero quadrati 
aventi tale lato 

8 

(9 - 8) 2 = l 2 = 1 

7 

(9 - 7) 2 = 2 2 = 4 

6 

(9 - 6) 2 = 3 2 = 9 

5 

(9 - 5) 2 = 4 2 = 16 

4 

(9 - 4) 2 = 5 2 = 25 

3 

(9 - 3) 2 = 6 2 = 36 

2 

(9 - 2) 2 = 7 2 = 49 


Totale = 140 


Crediamo che pochi si aspettava¬ 
no un numero così elevato di qua¬ 
drati: la geometria riserva sempre 
delle sorprese! 

Tornando al nostro gioco, abbiamo 
due gruppi di pedine diverse e il nu¬ 
mero totale di quadrati realizzabili 


re molto spazio al quadrato mobile. 
È intuitivo che il modo migliore di 
farlo e di dividerla in due parti ugua¬ 
li tagliandola parallelamente ad un 
lato. A questo punto si tratta di far 
riempire queste metà scacchiera ad 
ogni giocatore. Su ciascuna di esse 
potremo avere quadrati di lato al 
massimo 4. Vediamo che il quadrato 
mobile di lato 4 può occupare 9 — 4 
= 5 posizioni diverse per una sola 
volta; quello di lato 3, 9 - 3 = 6 
posizioni e per 2 volte; quello di lato 
2, 9 - 2 = 7 posizioni e per 3 volte. In 
totale ogni giocatore avrà realizzato 
5 + 6x2+7x3 = 38 quadrati. Per 
entrambi 76. Non è poco; sicura¬ 
mente più di quanto ci si poteva 
aspettare. 


Per assolvere questo compito lo 
Spectrum potrebbe scandagliare la 
scacchiera alla ricerca di pedine 
uguali a quella messa, disposte, con 
quest’ultima, ai vertici di un quadra¬ 
to. Un altro modo (umanamente 
stupido), sarebbe quello di analizza¬ 
re tutte le possibili 140 combinazio¬ 
ni di caselle disposte ai vertici di 
quadrati; in questo modo verrebbe¬ 
ro contati tutti i quadrati realizzati 
dall’inizio della partita. 
Concretizzando tali metodi, risulta 
complessivamente migliore il secon¬ 
do ed è quello sviluppato dalla linea 
1010 alla linea 1190. Vediamo com’è 
congegnato. 

Abbiamo visto sopra che il numero 
di quadrati possibili si otteneva 



Seguito listato I. 

n or aisni + iato RND a2«n OR al»m + 
tato RND a2»n + iato OR al «ni RND a 
3an + La t'O THEN LET fiaih-1: LET q 
*q + l: LET q(q,l)*N: LET q(q, 8 )*n 
: let q tq,3)«tato 
114.0 NEXT n: NEXT m 
1150 GO TO 1050 

1180 IF mTHEN LET qo»qo+l: 
RETURN 

1190 LET qx»qx+l: RETURN 
i200Bal3JLPun tea* i o probabilità' 
1810PRINT RT 19,1j"PARDON... NO 
N TROUO LE PEDINE!": DIM p(S, 8 ): 

FOR iti «1 TO 8 : FOR n«l TO 8 
1230 LET disili: LET d2»n 
1230 IF nt >4 THEN LET dl«9-N 
1240 IF n>4 THEN LET d2*9-n 
1250 LET caldi RND dl<«d2)+(d2 A 
ND d1>d2) 

1260 IF C <5 THEN LET p <m , n ) «2* < C 

-1): GO TO 1280 

1270 LET P (rii ,n> «a# ( 8 -C ) 

1280 NEXT n: NEXT m : GO SUB 2190 
1290 RET URN 

L300HjUU)É Fina Le Lampo 
1310 FOR ni si TO 8 : FOR n«l TO 8 
1320 IF d * (di, n )a" " THEN LET al¬ 
ni: LET a2*n: GO TO 1780 
1330 NEXT n: NEXT m 
1600E@9Ì Caratteri grafici 
1610 SESTORE 1630: FOR n«0 TO 7: 
READ L: POKE USR "a"+n,l: READ 
L: POKE USR "b"+n,l: NEXT n 
1620 RETURN 


1630 DATA 1,255,3,255,7,128,15,2 
48 

1640 DATA 31,248,48,48,96,24,0,0 
1650U9Q1 Ui sua L i zzaz i one verti- 
ci quadrati 
1660 FOR 1*1 TO 3 
1670 IF flash«1 THEN 6 EEP .5,40 
1680 PRINT INK (6 AND (il*«"X")+<5 
AND ni$*"0">; FLASH flash; AT 2*q 
( L , 1 ) -l,2*q (l ,2) +13; Iti*; AT 2* Cq ( L 
,1) +q(l,3) ) -1,2#q(l,2) + 13;m*; AT 
2*(q(l,l)+qU,3n-l,2#q<l,2)+13; 
ni*; AT a#(q(L,l)+qU,3)l-l,2*(q(l 
. 2 )+q(L,3))+13;m*;RT 2*q(l,l)-l, 
2* (q il , 2) +q ( L ,3) ) +13; ni* 

1690 NEXT L: RETURN 
i? 00 a 3 SH_input mossa 
1710 PRINT AT 8,0;"Mette "; INK 
(6 AND m*B"X")+(5 AND m*-"0"); F 
LASH limi; FLASH 0;” BEE 

p 3 20 

1715'iF tot «63 THEN GO TO 1310 
1720 INPUT a*: IF LEN a«<>2 THEN 
GO TO 1720 


1730 FOR n «1 TO 
l THEN LET a2*n 
1740 NEXT n; GO 
1750 FOR n =1 TO 
i THEN LET al«n 
L760 NEXT n: GO 
1770 IF 
O 1720 


sb* (n 


1780 IF 
*«w* 

1790 IF 
O 1810 


d* (al,a 2 ) < >" 
sg=l AND sp*l 


8 ; IF a *(1)i 
GO TO 1750 
TO 1720 

8 : IF a* (2) «c* (n 
GO TO 1770 
TO 1720 

1 THEN GO T 


THEN LET m 


n*s“" OR tot «0 THEN GO T 
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Seguito listato I. 


INK (6 AND m 
) ; AT 2*a3-l 


*a4+l3;n 




LET a3=a 1 

> m|»"X")+ (S 
1; at 2*a3-i 


1800 PAINT 
AND m $*"X' 

*810 LET d$ (al,42) *m$: 

LET a4aa2: LET n|am| 

1820 PRINT INK (6 AND 
AND m tx"0"); BRIGHT 
.2*a4+i3;me 

1830 DEEP .2,10: PRINT AT 8,6;”7 
: QO SUB 1010: DO SUB 296 

0 ___ 

18S0B93B1 Contatore pedine 
1860 LET mi» ("X" AND m•■"0")+ ("0 
• AND m*a"X") : IF spai THEN LET 
Sfla(0 AND S9»l)+(1 AND sg=0) 

1870 LET tOtetot+1: IF t5t»64. TM 
EN GO TO 2810 ^ „ 

1830 IF NOT S9 THEN PRINT AT 8,6 
:” " : GO TO 1710 
GO T O 1920 

■ agra Mossa a spectrum 
IFsp»2 THEN GO TO 194.0 


1890 

19001 

1910 

1920 

1930 

194.0 

1950 

1980 


GO SUB 1980: GO TO 1960 
LET wfa"X": LET iniZiO-1 
GO SUB 1980 
LET wftaftl _ 

IF iniZiOal THEN LET al»3+I 
NT (RND*4) : LET a2«3 + INT (RND*4) 
LET iniZiO30. GO TO 1780 

1970 DIM e (8,8): GO TO 110__ 

1980 PRINT AT 8,0;"Mette FLAS 
H 1; INK (6 AND m$ = "X") + (5 AND m 
«="0");"Spec. ";m*: BEEP .3,20: 

RETURN_ 

o000Hgaap Menu ' 

2010 PRINT AT 8 , 0 ;"Premi-r- per" 
'"le regoie"'"dei gioco" 

2020 PRINT AT 17,0;"088088888888 
tt. Premi: " 

2030 PRINT AT 19,0;"-a- per gioc 
are contro un amico 
204.0 PRINT "-s- per 
ro spectrum" 

2050 PRINT "-P- per 
tro Spec trum" 

2100u|DBi Indirizzamento 
2110 PAUSE 0: IF INKEY*a"r' 

GO SUB 2310: GO TO 2400 
2120 IF INKEY*n"a" THEN LET SP*0 
LET sg=0: GO SUB 2310: GO SUB 
2190: GO TO 2160 

2130 IF INKEY•■"S" THEN LET spai 

• GO SUB 2310: GO SUB 2190: GO S 

UB 1210: GO TO 2210 

2140 IF INKEY*a"p" THEN LET iniZ 

i0 a1: LET liV »3: LET SP*2: LET S 

gal; GO SUB 2310: GO SUB 2190: G 

0 SUB 1210: GO TO 1900 

2150 GO TO 2110 . 

2160 PRINT FLASH 1;AT 20/0; 
e X per primo 7 (s/n)": PAUSE 0: 

IF INKEY $ < >"S" THEN LET m|a"0" 
2170 GO SUB 2190: GO SUB 2950: G 
0 TO 1710 

2l30Va93fe Cancella in basso 
2190 FOR m a 0 TO 31 STEP 4: FOR n 
a18 TO 21: PAUSE 3: PRINT AT n,m 
;" ": NEXT n: NEXT m: RETURN 

2200Hjtpfli Scelta pedina e prima 
mossa iquando spai) 

2210 PRINT FLASH 1;AT 19,1;"CHE 


giocare cont 
Spectrum con 


THEN 


PEDINE SCEGLI ? (X/0) 
2220 LET mf»("0" AND 
+ ("X" AND INKEY*»"X"> 


": PAUSE 0 
INKEY*="0") 


2230 IF m* = "" THEN GO TO 2220 
2240 LET w**("X" AND m*a"Q")+("0 
•X"): PRINT FLASH l; IN 


AND 


> m*a"X")+(5 AND m$a"0"); 
),m *; INK 7 ; AT 20,2; "LIUE 
;I0C0 (1,2,3)": PAUSE 0 
INKEY __ ' 


YJ: 

GO TO 2240 


IF liV < 


sg 30 
1; AT 
TO 1 

PRI 

SUB 


m *a"X") 

K (6 AND m*a" 

AT 19,30; 

LLO DI GÌ 
2250 LET liVsUAL 
1 OR l iV > 3 THEN 
2260 PRINT FLASH 1;AT 20,30; liv; 
AT 21,3;"MUOUI PER PRIMO 7 (S/n) 
*: PAUSE 0 

2270 IF INKEY*="S" THEN LET 

• LET iniZi 0 30 : PRINT FLASH 
21,30;"S": 60 SUB 2190: GO 

710 

2280 LET sg*l: LET iniZiO=l: 

NT FLASH i;AT 21,30;"n": GO 
2190 : GO TO 1910 
2380UIUI Cancella centro 
2310 FOR ma 0 TO 11 STEP 4: FOR n 
*8 TO 11: PAUSE 3: PRINT AT n,m; 

" : NEXT n : NEXT ni 
2320 RETU RN 

2400UM3I Regole del gioco 
2410 60 SUB 2190: BEEP 1,0: PRIN 
F BRIGHT 1;AT 18,8;"REGOLE DEL G 
IQCO": PAUSE 300: BEEP .1,0: PRI 
NT AT 19,0;" Alternandosi i gioc 
atori dispongono una loro pedina 
su una ca- sella vuota della se 
a echi era.": PAUSE 500 
2420 BEEP .1,0: PRINT AT 19,0; *' 
scopo del gioco t'occupare ver- 
ici di quadrati con le proprie 
«dine. I quadrati possono esse- 

• PAUSE 500 

2430 BEEP .1,0: PRINT AT 19,0; 1 
e di qualunque dimensione ma i 
ati debbono essere orizzontali 
verticali. La partita termina 1 

• PAUSE 500 

2440 BEEP .1,0: PRINT AT 19,0;"q 
uando la scacchiera e' epperta d 
i pedine: vince chi ha circo- s 
critto il numero maggiore di 
■ PAUSE 500 

2450 BEEP .1,0: PRINT AT 19,0;"q 
uadrati. Per osservare un esem-p 
io e capire la strategia dei $ 
ioco scegli l'opzione -p-. 
•PAUSE 800: PRINT AT 18,10;" 

9460 GO T Q 2010 
2600UMSÌ Ti to li 
2610 BORDER 4: PAPER 4: 

R n a 1 TO 0 STEP -.015 
2620 BEEP .02,10: PLOT 44+84*(l- 
n) ,4+42* ( 1 -n) : DRAU n*168,0: DRA 
g 0,n *163 : DRAU -n*168,0: DRAU 0 
.-n * 168 

2630 PRINT AT 15,12;"QUADRATI";A 
r I7,i0;"di A. Furian" 

2640 NEXT n: PAUSE 30: GO SUB 28 
50: PAUSE 200: RETURN 
2700KklSl inizia lizzazioni var. 
2710 LET n =0 : LET m=0 : LET 1=0 
b*3”abcdefgh" 

C $s"123456/8" 
m|a"X": LET n«-"" 
d$ (8,8) : LET q«0 


-t 

•r 

i 

e 


CLS 


FO 


2720 LET 
2730 LET 
2740 LET 
2750 DIM 
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punteggio massimo. Il problema più 
importante è ovviamente quali crite¬ 
ri seguire per assegnare il punteggio 
alle caselle. 

Chiariamo subito che non risulta 
praticabile il metodo di analizzare 
dettagliatamente le conseguenze di 
ogni propria mossa, cioè di osserva¬ 
re la configurazione creatasi, ad 


subito dopo l’avversario non ne pos¬ 
sa realizzare di più approfittando, 
magari, proprio della miopia del 
programma. 

Risulta più fruttuoso affrontare il 
problema in modo completamente 
diverso: anziché orientarsi all'anali¬ 
si delle possibili risposte alle proprie 
possibili mosse, consideriamo sola- 
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sommando il contributo di ben 7 
gruppi, ma non è certo conveniente 
suddividere la ricerca dei quadrati in 
7 parli. È preferibile costruire una 
subroutine che ricerchi (usando il 
quadrato mobile) i quadrati aventi 
lato variabile e farla girare introdu¬ 
cendo uno ad uno i lati possibili (li¬ 
nce 1110-1150). Ci resta da definire 
il metodo di riconoscimento dei 
quadrati; siccome di essi ci interes¬ 
sano solo i vertici, basterà caricare 
in una stringa il contenuto delle 4 
caselle vertici: se tale stringa è for¬ 
mata da 4 pedine uguali avremo tro¬ 
vato un quadrato (questo confronto 
viene fatto alla linea 1130). 

Ma la routine più creativa di que¬ 
sto programma è senza dubbio quel¬ 
la che permette allo Spectrum di 
competere con i giocatori più tenaci. 
Come in molti altri giochi su scac¬ 
chiera, in linea di massima l'algorit¬ 
mo consiste neH’assegnarc ad ogni 
casella occupabile un certo punteg¬ 
gio; dopodiché il computer piazzerà 
la propria pedina nella casella a 


esempio, dopo due mosse proprie e 
due dell’avversario. Un semplice 
calcolo porterebbe alla conclusione 
che la macchina dovrebbe, a metà 
partita, analizzare qualcosa come 32 
x 31 x 30 x 29configurazioni diverse. 
Non è pensabile far analizzare al 
computer, in un tempo di riflessione 
accettabile, più di 863.000 scacchie¬ 
re. Tantopiù che alle prime mosse il 
numero delle posizioni sarebbe di 
più di 16 volte maggiore; inoltre, 
cosa più importante, la qualità del 
gioco sarebbe scadente. Infatti se in 
questo ristretto orizzonte lo Spec¬ 
trum trovasse le mosse che gli per¬ 
metterebbero ad esempio di realiz¬ 
zare due quadrati, non è detto che 


mente, fra queste ultime, quelle 
aventi una certa utilità strategica. In 
altri termini creiamo una scala di 
efficacia (o di pericolosità) dipen¬ 
dente dalla capacità per una certa 
casella, di contribuire alla formazio¬ 
ne di un quadrato (o di impedirne la 
formazione). Più precisamente pos¬ 
siamo assegnare un punteggio di 
1.000 unità a quelle caselle la cui 
occupazione conclude (o impedisce) 
la formazione di un quadrato, di 100 
unità a quelle che costituiscono il 
terzo vertice di un quadrato in for¬ 
mazione, di 10 unità a quelle che si 
appoggiano ad un unico vertice oc¬ 
cupato per costituirne il secondo 
vertice. 



Seguito listato I. 


a3=0 : LET a4*0 
1 0 t =0 : LET qx*0: 


LET qo 


2760 LET 
2770 LET 
= 0 

2780 RETU RN 

2800 HS=ffli Termine partita 
2610 IF qx =qo THEN GO SUB 2680: 
ORINT FLASH lj RT 8,0; "PARITA'": 
GO TO 2830 

2820 GO SUB 2850: PRINT FLASH lj 
AT 8,0j"UINCE"; FLASH 0;" “j FLA 
3H l; INK i6 AND qx>qo)+(5 AND q 
X<qo);("X" AND qx >q0) + CO” AND q 
x <qo ) 

2830 PRINT ttl;"PER CONTINUARE PR 
EMI UN TASTO": PAUSE 0: CLS : GO 
TO 40 

2840i paM Musica di vittoria 
2850 BEEP .2,9: BEEP .2,7: BEEP 
.5,9: PAUSE 20: BEEP .1,7: BEEP 
.1,5: BEEP .1,4: BEEP .1,2: BEEP 
.5,1: BEEP .5,2 
2860 RETU RN 

2870*aai* Musica di parità' 

2880 BEEP .25,21: BEEP .25,21: B 
EEP .25,21: BEEP .25,21: BEEP .2 
5,19: BEEP .25,18: PAUSE 10: BEE 
° .3,21: BEEP .3,23: BEEP .3,21: 

BEEP .3,21: BEEP .3,19 
2390 RETU RN 

3300KUGQ1 Indicazioni alte 
2910 PRINT INUERSE 1;AT 1,3; "QUA 
ORATI"; INUERSE 0;AT 3.3;"©1984 
AB" 


2920 PRINT AT 5,0;"»8B«88»a«n»#n 
2930 RETU RN 

2950Bà39fe Indicazioni medie 
2960 PRINT AT 11,0;"PUNTEGGIO:"; 
AT 13,0;"Quadrati "; INK 6;"X"; 
INK 7;"=";qx 

2970 PRINT AT 14,0;"Quadreti "; 

INK 5;"0"; INK 7;"*";qo 

2980 RETU RN 

3080UaUÉ Scacchiera 

3010 PRINT AT 0,14; "P" ;AT 16,14; 

S ";AT 0,30;"T’;AT 18,30; "J" 

20 FOR n *16 TO 29: PRINT AT 0, 
n;;AT I6,n;"«": NEXT n 
3030 FOR n *1 TO 15: PRINT AT n,1 
4;"f";AT n,30;" |": NEXT n 
3040 LET lfl=156 

3050 FOR n=0 TO 96 STEP 16: PLOT 
115,m-n: DRAU 129.0; NEXT n: IF 
rn *155 THEN GO TO 3070 
3060 LET m * 155 : GO TO 3050 
3070 LET m *131 
3080 FOR n *0 TO 96 STEP 16: 

W+n,43: DRAU 0,129: NEXT n 
m *132 THEN G0 TO 3100 
3090 LET m = 132 : GO TO 3080 
3100 PLOT 116,44: DRAU 127,0: OR 
AU 0,127: DRAU -127,0: DRAU 0,-1 
27 

3110 FOR n *1 TO 15 STEP 2: PRINT 
AT n,3i;n/2+.5: NEXT n 
3120 PRINT AT 17,15;"A B C D E F 
0 H " 

3130 RETURN 


p tf T 
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Ad esempio nella figura lf si può 
osservare la sventagliata di punteggi 
dovuti alla presenza della pedina in 
C4; molte caselle, come Al ed H4, 
non ricevono punteggio perché non 
potranno contribuire, con C4, alla 
formazione di un quadrato. Vice¬ 
versa alcune caselle vicine a C4 rice¬ 
vono un punteggio doppio: sono 
quelle che potrebbero contribuire 
doppiamente alla formazione di 
quadrati aventi il vertice C4 in co¬ 
mune (ad esempio C6 potrebbe esse¬ 
re vertice nel quadrato A4, A6, C6, 
C4 ma anche in quello di vertici C4, 
C6, E6, E4, cosa non possibile alle 
caselle C7, C8, ecc.). 

Con due pedine la distribuzione 
dei punteggi si complica ed aumenta 
la loro entità. Consideriamo per 
semplicità una pedina uguale alla 
precedente disposta in C8 (figura 
lg); al punteggio riportato in figura 
lf bisogna ora aggiungere, distri¬ 
buendolo similmente, quello provo¬ 
cato dalla pedina in C8. Siccome 


però C4 e C8 potrebbero essere ver¬ 
tici del quadrato C4, C8, G8, G4, a 
queste ultime due caselle vengono 
aggiunti 100 punti. 

Con più pedine il lettore sarebbe co¬ 
stretto a provvedersi di carta e mati¬ 
ta, per cui evitiamo di proseguire: 
l’algoritmo mi sembra chiaro. 

Nel programma queste assegnazioni 
di punteggio avvengono dalla linea 
130 alla linea 390: nella stringa q$ si 
carica, in un certo ordine, il conte¬ 
nuto delle caselle vertici del generico 
quadrato, quindi si confronta q$ 
con tutte le possibili stringhe costi¬ 
tuite da 4 elementi che vanno da 3 
pedine uguali e 1 spazio a 1 pedina e 
3 spazi. Quando risulta l’identità si 
assegna il punteggio alle caselle cor¬ 
rispondenti alla posizione degli spa¬ 
zi in q$. 

Diamo un’altra occhiata alla figu¬ 
ra lg: se noi facessimo riflettere lo 
Spectrum su questa posizione, esso 
dovrebbe scegliere di piazzare la sua 
pedina in G4 od in G8 e lo farebbe a 


caso. Sicuramente molti lettori deci¬ 
derebbero di sistemarla in G4; per¬ 
ché? Perché, giustamente, il giocato¬ 
re previdente cerca di mettersi nelle 
condizioni più favorevoli ai fini del¬ 
le successive mosse e il numero di 
quadrati di vertice G4 può essere 
maggiore di quello di vertice G8. 
Anche Io Spectrum può tener conto 
di ciò, ma solo nei casi di caselle a 
punteggio massimo uguale: aggiun¬ 
geremo quindi, durante tutta la par¬ 
tita, un altro punteggio, di entità 
massima inferiore a 10, che dovrà 
rispecchiare la capacità di una sin¬ 
gola casella di contribuire alla for¬ 
mazione di quadrati. Lo chiamere¬ 
mo punteggio probabilità di forma¬ 
re quadrati; vediamo ora come de¬ 
terminarlo. 

Prima di tutto bisogna contare 
per ogni casella il numero di quadra¬ 
ti aventi per vertice tale casella. Seb¬ 
bene vi siano condizioni favorevoli 
di simmetria, cerchiamo di ricavarci 
una regola pratica che limiti il con- 



Listato 2. La versione per 16 Kbyte. 

31016 Conta timo (TU) 

*0 BORDER 1: PflPÉR 1: 1NK ?: C 
LS : 00 SUB 2010: 00 SUB 2710: 0 
Q SUB 3010: 00 T0 2010 
110PRINT BR1GHT 1;AT 20,3;"S T 
0 PENSANDO!" : LET la t. 

O *0 

130 LET iato«iato+i 

14.0 IF lato<8 THEN 00 TO 210 

160 GO T0 710 

210 POR m >1 TO 8-latO: FOR n*l 
ro 8-ieto 

220 LET l *m + la to : LET o»n + lato 
230 LET qt»di ( 0 ) , n) +d i ( l, n) + di ( l 
. o ) +d | (m , o ) „ ___ 

24.0 IF qi»" " THEN 00 TO 300 
246 IF qi ( 1) < > " ” AND ai<2)<>" 

■ AND qi (3) <>" " AND qi(4) <>" " 
THEN 00 TO 300 

260 IF qi»" XXX" OR qi." 000" 
HEN LET • (m , n> ■« in) , n) +1000: 00 
Q 3 3 © 

260 IF qi»"X XX" OR ql;"0 00" 
HEN LET a(l,D)«a(l,n)+1000: G0 
Q 390 

270 IF qi«"XX X" OR qi«"00 0" 
HEN LET a(l,0)se (I ,0) +1000: GO 
Q 390 

280 IF q*s"XXX " OR 
HEN LET a (II) , 0 ) =8 (in ,0) +1000: G0 
ù 390 

200 IF qi*" XX" OR qi»" OO" 


T 

T 

T 

T 

T 

T 

T 

T 


HEN 

LET 

a (ni ,n) »e (m 

,n) 

+100: LET 

e 

( i. n 

) se 

l,n) +100 : 

00 

TQ 

390 


300 

IF 

q$»" X X" 

OR 

qi 

■ " 0 0" 

T 

HEN 

LET 

a (ni ,n) »e (ni 

, n ) 

+100: LET 

a 

(1,0 

) sa 

1,0)+100: 

GO 

TC 

390 


3Ì0 

IF 

qts"X X” 

OR 

qi 

*"0 0" 

T 

HEN 

LET 

a (i,n)»e ( i 

,n) 

+ 1 

00: LET 

e 

( 1,0 

) se 

1,0) +100: 

00 

TG 

390 


3è0 

IF 

qÌ="X X " 

OR 

qi 

»"0 0 " 

T 

HEN 

LET 

a (i , n ) »e ( i 

,n) 

+ 1 

00: LET 

e 

( m ,o 

) =e («i, o ) +100: 

GO 

TO 

390 


330 

IF 

qi*"xx 

OR 

qi 

*"00 " 

T 

HEN 

LET 

a (i, 0 )=e ( i 

,0 ) 

+ 1 

00: LET 

e 

( ni, o 

) at 

1» , 0 ) +100 : 

GO 

TO 

390 


340 

IF 

q i s" xx " 

OR 

qi 

»" 00 " 

T 

HEN 

LET 

a (n) ,n ) se (ni 

, n ) 

+100: LET 

e 

(ft) , 0 

) se (ni, 0 ) +100 : 

GO 

TO 

390 


350 

IF 

qi B "x 

OR 

qi 

*"0 

T 

HEN 

LET 

e ( i , n ) =e ( i 

,n) 

+ 1 

0: LET 

a ( 

l ,0) 

«a ( i 

, 0 )+10: LET e 

(m 

,0)sa (m 

,o 

) +10 

: 2 C 

T0 300 





360 

IF 

qa»" X 

OR 

qi 

s" 0 " 

T 

HEN 

LET 

e(m ,n) »e (ni 

,n) 

+ 1 

0: LET 

e ( 

1,0) 

«e ( l 

, 0 )+10: LET e 

(ni 

, o ) »a (m 

,o 

) +10 

: GC 

T0 390 





370 

IF 

q«s" X " 

OR 

qi 

0 " 

T 

HEN 

LET 

a (m ,n) =e (ni 

,n) 

+ 1 

0: LET 

e ( 

i ,n) 

*e ( l 

,n) +10: LET e 

(m 

,o ) «e (m 

,0 

1 +10 

: OC 

T0 300 





380 

IF 

qi*" X" 

OR 

qi 

»" 0" 

T 

HEN 

-ET 

a (ni,n) sa (ni 

,n> 

+10: LET 

e ( 

l ,n) 

=e ( l 

,n)+10: LET e 

( l 

,o) >a ( i 

,0 

» +10 







390 

NEXT n: NEXT 

m : 

00 

TO 130 


710 

F0P 

il» si TO 8: 

FOR 

n*i to 

8 : 

IF 

di (m 

,n) < >" " THEh 

LET a (m , 

n ) 

s-l: 

00 

TO 730 
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teggio vero e proprio a solo due o tre 
caselle. Consideriamo quindi le ca¬ 
selle D4 ed E3 (figure Ih e li). Nella 
figura 111 si può notare che il qua¬ 
drato avente per vertici A4. A7, D7, 
D4 contiene altri due quadrati di 
vertice D4, mentre l’altro quadrato 
in basso a destra ne contiene 3, per¬ 
tanto nel rettangolo più grande della 
scacchiera (quello di vertici A4, A8, 
H8, H4) vi sono 7 quadrati. Nel ret¬ 
tangolo rimanente di vertici AI, A4, 
H4, HI, abbiamo due gruppi di tre 
quadrati ciascuno. 

Osserviamo ora la figura li: nel ret¬ 
tangolo più grande (di vertici A3, 
A8, H8, H3) trovano posto ancora 
complessivamente 7 quadrati, nel¬ 
l’altro ancora due gruppi uguali, 
ciascuno di due quadrati. 

Ci si rende conto che, in qualunque 
posizione si trovi la casella, taglian¬ 
dola con una retta parallela al bordo 
più vicino, quel rettangolo che si 
forma, maggiore o uguale alla metà 
della scacchiera conterrà sempre 7 


quadrati convergenti sulla casella 
(ciò può avere una giustificazione 
intuitiva). Esiste ora una regola per 
stabilire il numero di quadrati possi¬ 
bili nell’altra parte della scacchiera? 
Notiamo subito che il loro lato sarà 
condizionato dall’altezza di tale ret¬ 
tangolo e che corrisponde al numero 
di caselle di distanza dal bordo più 
vicino alla nostra casella, e cioè 3 
nella figura Ih e 2 nella figura li. 
Abbiamo quindi trovato la regola 
che cercavamo! Il numero di qua¬ 
drati convergenti su una casella è 
uguale a 7 + il doppio della distanza 
dal lato più vicino. Ad esempio per 
la casella G3: 7 -I- 2 x 1=9; per la 
casella F5: 7 + 2 x 2 = 11; per A3: 7 
+ 0x2 = 7. 

In figura II è riportato, per ogni ca¬ 
sella, il relativo numero di quadrati 
ivi convergenti. 

Quantifichiamo ora nel modo più 
opportuno il punteggio probabilità: 
siccome il minor numero di quadrati 
convergenti su una casella è risulta¬ 


to 7, possiamo sottrarre 7 da tutti e 
ottenere così punteggi che rispettino 
queste probabilità e che siano anche 
inferiori a IO. E con questo criterio 
che funzionano le linee comprese fra 
1220 e 1280. 

Infine alcuni cenni alla routine che 
trova le coordinate della casella a 
punteggio massimo. Innanzitutto 
c’è una piccola routine che trasfor¬ 
ma la matrice scacchiera in un vetto¬ 
re a 64 clementi, ottenuto allineando 
consecutivamente le righe. Inizia 
quindi il confronto fra i primi due 
elementi del vettore: il minore dei 
due soccombe e viene eguagliato a 

— I, l’altro continuerà nel confronto 
con le successive caselle, fino ad 
esaurimento degli elementi del vet¬ 
tore. I.a situazione finale sarà per¬ 
tanto la seguente: nel vettore trove¬ 
remo quasi tutti gli elementi uguali a 

— 1, gli altri esprimeranno un uguale 
punteggio massimo; verrà allora 
scelta a caso la posizione di uno di 
questi. Per finire, si ritrasformerà la 



Seguito listato 2. 


TURN 



1020 LET q$»in*+m* + nil+ni«: LET lat 

720 LET a(m,n)»a<m,n)+p<m,n) 


0=0: IF M*="X" THEN LET qx«0: GO 

730 NEXT n: NEXT ni 


TO 1050 

810 DIM k (04) : FOR ltl«l TO Q: FO 


1040 LET qo=0 

R Lai TO 8: LET k ( <1*-1> *8 +U ■« <M 


1050 LET LatO«L4tO+l 

. U : NEXT L: NEXT M 


1060 IF tato<8 THEN GO TO 1110 

820 LET lax»0: FOR n-1 TO 63 


1030 RETURN 

830 IF k tn+1) >k (n-lax) THEN LeT 


1110 FOR mal TO a-iato 

k(n-iax)«-l: GO TO 850 


1120 for n*1 to e-tato 

34.0 GO TO 870 


1130 if d|(iA,n) +dt(m + iato,n) +df( 

360 IF lax >0 THEN GO SUB 980 


ni + Lato,n + iató) +d|tm,n + lato) »q|i T 

860 NEXT n: GO TO 890 


HEN G0 SUB 1180 

370 IF ktn+i)»k (n-lax) THEN LET 


1140 NEXT n: NEXT m 

iax«iax+l: NEXT n: GO TO 890 


1150 GO TO 1050 

880 LET k (n +1)«-1: LET taXnl4X + 


1180 IF mt«"0" THEN LET qo«qo+l: 

1: NEXT n 


RETURN 

890 LET Z»0: FOR n»l TO 64. 


1190 LET qxeqx+1: RETURN 

900 IF k (n ) > -1 THEN LET Z-Z+l: 


1210 PRINT AT 19,l;"PARDON... NO 

LET Wsn 


N TRQUO LE PEDINE!": DIM p(8,8): 

910 NEXT ri: LET j-0 


FOR m = 1 TO 8: FOR n»l TO 8 

920 IF Z*1 THEN GO TO 950 


1220 LET dlnM: LET d2=n 

930 LET nmax «1 + INT (Z*RND): FOR 


1230 IF m>4 THEN LET dln9-m 

W»1 TO 64.: IP k (w ) ■ -1 THEN NEXT 


1240 IF n >4 THEN LET d2»9-n 

W 


1250 LET C»(dl AND dl<ad2)+(d2 A 

940 LET jaj+1: IP j<nmax THEN N 


ND d 1 >d2) 

eXT w 


1260 IF C<5 THEN LET p(m,n)«2#(C 

960 LET alai: IF U<9 THEN LET 4 


-1): GO TO 1280 

2>w: GO TO 1780 


1270 LET P (m ,n)-a*(8-C) 

960 LET al-al + 1: LeT w»W-8: IF 


1280 NEXT n: NEXT m: GO SUB 2190 

w <9 THEN LET «am: GO TO 1780 


1290 RETURN 

970 GO TO 960 


1710 PRINT AT 8,0;"Matta INK 

980 FOR u■1 TO n: IF k(W)<>-l T 


<6 AND m$3"X")+(5 AND fiHa-O"); F 

HEN LET k(W)»-l 


LASH l; (Ili; FLASH 0;" " : BEE 

990 NEXT w: LET l.ax-0: RETURN 


P .3,20 

1010 PRINT AT 20,3;" 


1720 INPUT al: IF LEN a$<>2 THEN 

’ : IF tot <6 THEN RE 


GO T0 1720 
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coordinata scelta nelle due coordi¬ 
nate della scacchiera. 

I lettori interessati potranno tran¬ 
quillamente usare questa routine nei 
loro programmi anche con scacchie¬ 
re di dimensioni diverse, perché le 
modifiche da apportare sono vera¬ 
mente semplici. 

Il programma 

30 - Presenta il programma; forma 
due caratteri grafici (solo per 48 
Kbytc). 

40 - Stampa le indicazioni e la scac¬ 
chiera; inizializza alcune variabili. 

110 - Quando sta per avvenire l’ulti¬ 
ma mossa evita allo Spectrum la 
routine di scelta. 

130-140 - Dirigono l’assegnazione 
del punteggio alle caselle. 

230 - Formazione di q$ come som¬ 
ma di quanto si trova ai vertici di un 
generico quadrato della scacchiera. 
240-245 - Per q$ vuota o piena nes¬ 
suna assegnazione di punteggio. 


250-280 - Considerato il caso che q$ 
sia occupata da 3 pedine uguali (di¬ 
sposte nei quattro modi possibili), 
assegnato un punteggio alto alla ca¬ 
sella corrispondente alla posizione 
dello spazio in q$. 

290-340 - Se q$ è occupata da 2 pedi¬ 
ne uguali (disposte nei 6 modi possi¬ 
bili), viene assegnato un punteggio 
medio alle due caselle corrisponden¬ 
ti alle posizioni degli spazi in q$. 
350-380 - Se qS è occupata da una 
sola pedina (disposta nei 4 modi 
possibili), assegnato un punteggio 
basso alle caselle corrispondenti alla 
posizione dei tre spazi in q$. 
710-730 - Aggiunto, al punteggio 
delle caselle, il punteggio legato alla 
probabilità di essere vertici di qua¬ 
drati. 

810-990 - Routine di scelta della ca¬ 
sella a punteggio massimo; nel caso 
di due o più caselle a pari punteggio 
massimo, viene estratta a sorte una 
di esse. 

1010-1080 - Pilotano la ricerca di 


pedine uguali disposte ai vertici di 
un quadrato; routine attivata solo 
nel caso che le pedine sulla scacchie¬ 
ra siano almeno 7 (linea 1010). 
1110-1190 - Eseguono la ricerca di 
quadrati aventi il lato stabilito alla 
routine precedente e li fanno conta¬ 
re dalle variabili qx e qo. 

1210-1290 - Calcolato il punteggio 
probabilità per ogni casella; questa 
routine viene eseguita una sola volta 
prima che cominci una partita in cui 
Spectrum deve giocare. 

1310-1330 - Evitano di dover digita¬ 
re l'ultima mossa della partita: se 
questa spetta allo Spectrum gli evi¬ 
tano la riflessione (solo per 48 
Kbytc). 

1610-1690 - Definiti due caratteri 
grafici (solo per 48 Kbyte). 
1660-1690 - Routine che fa lampeg¬ 
giare le caselle vertici dei quadrati 
appena formati; tale lampeggio ter¬ 
mina, ad opera di questa stessa rou¬ 
tine, quando l’avversario fa la sua 
mossa (solo per 48 Kbyte). 



Seguilo listato 2. 

1730 FOR n *1 TO Q: IF 
< THEN LET a2«n: GO TO 1750 
174.0 NEXT n : GO TO 1780 
1750 FOR n»l TO 8: IF a«(2)ac|(n 
• THEN LET al*n: GO TO 1770 
1780 NEXT n: GO TO 1780 
1770 IF d* <al,a8> < >" " THEN GO T 
0 1780 

1780 IF sgai RND spai THEN LET m 

*»w « 

1790 IF n«a"" OR tOta0 THEN GO T 
0 1810 

1800 PRINT INK (6 RND #Ìa M 0 M )+(5 
AND h)»«"X") ; AT 2*a3-l,2*a4+13;n 

1810 LET dfc (al,aa> ■!*«: LET a3»al 
LET a 4aa2 : LET ngaml 
1880 PRINT INK (6 RND ■J«"X M )+(S 
RND mfa"0"); FLASH 1;AT 2*a3-l, 
2M4 + 13 1 Mg 

1830 BEEP .2110: PRINT AT 8,6; M ? 

GO SUB 1010: GO SUB 296 

0 

1860 LET-m**("X" AND m ta"0" ) + ( “0 
" AND HI|« ,, X") : IF sp«l THEN LET 
Sfl»(0 AND S9 *1) + ( 1 AND »g>0) 

1870 LET tOtatot+1: IF t0ta64 TH 
EN GO TO 2810 

1680 IF NOT sg THEN PRINT AT 8,6 

:" M : GO TO 1710 

1690 GO TO 1920 

1910 IF sp »8 THEN GO TO 194-0 

1920 GO SUB 1980: GO TO 1960 

1930 LET W|a"X n : LET inizio-l 

1940 GO SUB 1980 


1950 LET 

1960 IP iniZiOal THEN LET al»3+I 
NT (RND#4): LET a2»3+INT (RND*4) 
LET inizi 0*0: GO TO 1780 
1970 DIM « (8,8) : GO TO 110 
1980 PRINT AT 8,01"Matta " ; FLAS 
H l; INK (6 AND (n|«"X") + (5 AND m 
ia"0")j"SptC. "ititi: BEEP .3,20: 
RETURN 

2080 PRINT AT 17,0; " 

». PrtM i:" 

2030 PRINT AT 19,0;"-a- Par 9i0C 
art contro un antico " 

8040 print "-s- par giocart coni 
ro Sptctrunt" 

2050 PRINT "-p- par Sptctrum con 
tro sptctrum" 

2120 IF INKEYf«"a" THEN LET *pa0 
LET sga0; GO SUB 2190: GO TO 8 
160 

2130 IF lNKEY$a"S" THEN LET spai 
GO SUB 2190: GO SUB 1210: GO T 
0 2210 _ . 
2140 IF INKEYÉ»"p" THEN LET iniZ 
iO»l: LET S P *2 : LET sgal; GO SUB 
2190: GO SUB 1210: GO TO 1900 
2150 GO TO 2120 

2160 PRINT FLASH 1;AT 20,0;-Matt 
a X par primo ? (s/n)": PAUSE 0: 

IF INKEYg < >"s " THEN LET mga-’O" 
2170 GO SUB 8190: GO SUB 2950: G 
0 TO 1710 

2190 FOR ma 0 TO 31 STEP 4: FOR n 
a 18 TO 21: PAUSE 3: PRINT AT n,m 
; ” •*; NEXT n: NEXT M: RETURN 

2210 PRINT FLASH 1;AT 19^1; "CHE 
PEDINE SCEGLI 7 (X/0) 1 


ff 1 ) wnu 

PAUSE 0 
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1710-1830 - Queste linee chiedono 
all’utente di eseguire la sua mossa e 
ne controllano la regolarità; provve¬ 
dono quindi a stampare la pedina 
nella posizione scelta evidenziando¬ 
la rispetto alle altre; contemporane¬ 
amente la penultima pedina messa 
viene privata della caratteristica evi- 
denziatrice (solo per 48 Kbyte). 
1860-1890 - Q ui avviene lo scambio 
della pedina a cui spetta di giocare; 
contato il numero complessivo mes¬ 
so sulla scacchiera. 

1910-1980 - Routine percorsa se la 
mossa è allo Spectrum; quando deve 
scegliere la prima mossa della parti¬ 
ta ciò viene eseguito subito sceglien¬ 
do a caso una delle 16 caselle del 
quadrato centrale della scacchiera. 
2010-2050 - Indirizzamento relativo 
al menu; se l’utente gioca contro 
un’altra persona, viene chiesto qua¬ 
le pedina giocherà per prima. 

2190 - Routine che cancella la parte 
bassa dello schermo. 

2210-2280 - Attivate quando l’uten¬ 


te gioca contro lo Spectrum; viene 
richiesto con quali pedine si vuole 
giocare, (a quale livello, solo per 48 
Kbyte) e chi dovrà muovere per pri¬ 
mo. 

2310 - Cancella la parte sinistra a 
fianco della scacchiera (solo per 48 
Kbyte). 

2410-2640 - Riportate le regole del 
gioco (solo per 48 Kbyte). 
2610-2640 - Titoli di testa (solo per 
48 Kbyte). 

2710-2780 - Inizializzate alcune va¬ 
riabili. 

2810-2830 - Gestiscono la parte fi¬ 
nale della partita, dichiarando l’esi¬ 
to di essa. 

2850-2890 - Motivetti per la vittoria 
e la parità (solo per 48 Kbyte). 
2910-2920 - Indicazioni fisse poste 
nella parte alta a sinistra della scac¬ 
chiera. 

2960-2980 - Indicazioni medie ag¬ 
giornate per quanto riguarda il nu¬ 
mero dei quadrati realizzati. 
3010-3130 - Disegno della scacchie¬ 


ra e relative indicazioni. 

Di questo programma la versione 
funzionante nello Spectrum non 
espanso si trova nel listato 1. Il lista¬ 
to 2 è una integrazione da battere 
sopra il listato 1 per avere la versio¬ 
ne 48 Kbyte (più agevole per l’uten¬ 
te). 


Variabili impiegate 

al,a2 - Coordinate della mossa ese¬ 
guita. 

a3, a4 - Coordinate della mossa pre¬ 
cedente. 

a$ - Contiene le indicazioni della 
mossa fatta dall’utente. 
b$ - Uguale a “abcdefgh” 
c$ - Uguale a “12345678” 
c - Particolare valore scelto fra di e 
d2 (in routine probabilità). 
dl,d2 - Distanze (rispettivamente 
verticale e orizzontale) dai bordi 
della scacchiera della casella consi¬ 
derata. 



Seguito listato 2. 

8220 LET mi»("O" AND INKEY$»"0") 
+ <"X" AND INKEY|a"x " ) 

2230 IF mia"” ThEN (SO TO 2220 
224.0 LET WÌ=("X" AND mi-"0")+<"0 

• AND mt*"X"): PRINT FLASH 1; IN 
K (6 AND m|a"X")+<5 AND mi»"0")j 
AT 19,30; mi; INK 7;AT 20,3;"MUOU 
I PER PRIMO 7 (S/ni" : PAUSE 0 
2270 IF INKEY$a"S" THEN LET S9*0 
LET inizio=0: PRINT FLASH 1;AT 
20,30; "S" : GO SUB 2190: GO TO 1 
710 

2280 LET sgai: LET inizio al: PRI 
NT FLASH i;AT 20,30;"n": GO SUB 
2190: GO TO 1910 
2710 LET n a0: LET m»0: LET L»0 
2720 LET bt*"abcdefgh" 

2730 LET C i = " 12345678" 

874.0 LET m $»"X" : LET ni»"” 

2750 DIM di (6,8) 

2760 LET a3e0: LET a4>0 
2770 LET to t =0 : LET qxn0: LET qo 
= 0 

2730 RETURN 

2810 IF qx =qo THEN BEEP 1,-20: P 
RINT FLASH 1;AT 3,0;"PARITA'": G 
0 TO 2830 

2820 BEEP 1,0: PRINT FLASH l;AT 
3,0;"VINCE"; flash 0;" "; flash 
l; INK (6 AND qx >qo)+(S AND qx<q 
0 );(“X" AND qx >qo) +("0" AND qx<q 

O) 

2830 PRINT 81;"PER CONTINUARE PR 
EMI UN TASTO": PAUSE 0: CLS : GO 


TO 4.0 

2910 PRINT INVERSE 1;AT 1,4.; "QUA 
orati;;; inverse 0;at 3,2;"© A. f 

2920 n pRINT AT 5,0;"8888888888888 

2930 RETURN 

2960 PRINT AT 11,0;"PUNTEGGIO:"; 
AT 13,0;"Quadrati "; INK 6;"X"; 
INK 7;"a“;qx 

2970 PRINT AT 14.,0; "Ouadrat i "; 
INK 5;"0"; INK 7; "a"; qo 
2980 RETURN 

3010 PRINT AT 0,1A;"F";AT 16,14; 
"|p" ; AT 0,30,"T’;AT 16,30; "J" 

3020 FOR n»15 TO 29: PRINT AT 0, 

n;"* *";AT I6,n;"«": NEXT n 

3030 FOR n *1 TO 15: PRINT AT n,1 


4.; "("; AT n ,30i" |" : 
304? — 


■ . NEXT 

_ LET m»156 

3050 FOR n «0 TO 96 STEP 16: PLOT 
115,Kl-n : DRAU 129,0: NEXT n: JF 
ma155 THEN GO TO 3070 
3060 LET m « 155 : GO TO 3050 
3070 LET m»l31 

3080 FOR n»0 TO 96 STEP 16: PLOT 
m+n,43: DRAU 0,129: NEXT n: IF 
m»132 THEN GO TO 3100 
3090 LET ma 132: GO TO 3080 
3100 PLOT 116,44: DRAU 127,0: DR 
AU 0,127: DRAU -127,0; DRAU 0,-1 
27 

3110 FOR n-1 TO 16 STEP 2:. PRINT 
AT n,3l;n/2+.6: NEXT n 
3120 PRINT AT 17,15;"A B C D E F 

q M M 

3130 RETURN 


84 

















Quadrati 
per Spectrum 

flash - Vale 0 o 1 (usato nella routine 
che visualizza i quadrati appena for¬ 
mati), (solo per 48 Kbyte). 
inizio - Uguale a 1 quando lo Spec¬ 
trum inizia la partita muovendo per 
primo; uguale a 0 negli altri casi (so¬ 
lo per 48 Kbyte). 

j - Numero punteggi massimi uguali, 
lax - Numero di caselle fra quelle in 
esame e quella a punteggio massi¬ 
mo. 

I - Uguale a m + lato (in ricerca 
migliore mossa dello Spectrum). 
lato - Numero di caselle di lato dei 
quadrati. 

liv - Uguale a 1,2,3; livelli di gioco 
(solo per 48 Kbyte). 
m$ - Pedina che mette. 
n$ - Pedina che non mette, 
nmax - Numero estratto a sorte com¬ 
preso fra 1 e z. 

o - Uguale a n + lato (in ricerca 
migliore mossa dello Spectrum). 


qx,qo - Numero totale di quadrati 
realizzati da X e da O. 
q$ - Uguale a m$ + m$ + m$ + m$ + 
m$ (nella ricerca quadrati realizza¬ 
ti), uguale a stringa somma pedine 
disposte ai vertici di un quadrato, 
q - Numero quadrati realizzati in 
seguito ad una mossa (solo per 48 
Kbyte). 

sp - Uguale a 0 se lo Spectrum fa solo 
da arbitro, uguale a I se lo Spectrum 
gioca contro l’utente, uguale a 2 se 
lo Spectrum gioca contro se stesso, 
sg - Uguale a 0 se lo Spectrum atten¬ 
de la mossa dell’avversario, uguale a 
1 se lo Spectrum gioca, 
tot - Numero di pedine presenti sulla 
scacchiera. 

z - Numero punteggi massimi ugua¬ 
li. 

w - Var. For-Next nella ricerca della 
posizione della casella a punteggio 
massimo; quando il ciclo si inter¬ 


rompe il suo valore indica la posi¬ 
zione dell’ultimo massimo in k 64). 
\v$ - Contiene il simbolo che indica 
la pedina assegnata allo Spectrum 
(X/O). 

Matrici impiegate 

d$ (8,8) - Matrice contenente i sim¬ 
boli (pedine) presenti sulla scacchie¬ 
ra. 

e (8,8) - Matrice punteggi delle casel¬ 
le. ‘ 

k (64) - Ottenuto stendendo la matri¬ 
ce e (8,8). 

p (8,8) - Contiene i punteggi proba¬ 
bilità per ogni casella di essere verti¬ 
ce dei quadrati. 

q (10,3) - Ogni sua riga contiene le 
coordinate di un vertice di un qua¬ 
drato appena realizzato e il suo lato 
(per la loro visualizzazione), (solo 
per 48 Kbyte). ■ 



E in edicola il nuovo numero di 


mviEi ISTI in .A 


La rivista di informatica 
nella didattica per la scuola 



Con tutta la competenza del 

GRUPPO EDITORIALE 


JACKSON 
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COMMODORE VIC 20 - C 64 

Beep e errori “sonorizzati” 

di Maurizio Paolinelli 

Capita spesso di imbattersi in programmi che conten¬ 
gono lunghe iterazioni o laboriose procedure di calcolo, 
soprattutto usando il C 64 in BASIC con finalità di 
carattere scientifico. 

È in particolare in questi casi, quando si resta a fissare 
per minuti e minuti lo schermo in attesa del sospirato 
risultato (ad esempio l’inversione di una matrice qua¬ 
drata di ordine 15 necessita di un tempo di elaborazione 
di quasi 30 minuti!), che si sente la mancanza di un 
comando BASIC estremamente comodo come il Beep. 
L’esecuzione di tale comando fa emettere alla macchina 
un impulso sonoro di avvertimento (per l’appunto un 
beep) che avvisa l’operatore disattento o occupato in 
altre operazioni, che è accaduto qualche cosa degna di 


nota (ad esempio che è stato commesso un errore, è 
stato finito un calcolo, la macchina è in attesa di un 
dato, è stato ultimato un ciclo di una procedura iterativa 
...). 

Il semplice programma qui descritto consente di im¬ 
plementare sul C 64 il comando Beep e, apportando 
alcune modifiche all’interprete BASIC standard, di fare 
in modo che la segnalazione di un qualsiasi errore venga 
affiancata dall’avvertimento sonoro di un beep, come 
avviene nella maggior parte dei personal professionali. 

Per modificare l’interprete BASIC nel modo meno 
dispendioso possibile, si è pensato di sostituire al co¬ 
mando Let (usato quanto mai raramente) il nuovo co¬ 
mando Bip (mi si consenta l’italianizzazione dovuta alla 
necessità di usare un numero di caratteri uguale a quello 
del comando sostituito). 

Nel listato 1 è riportato il programma BASIC da 
digitare, memorizzare su supporto esterno e lanciare. 
Dopo il Run una scritta avverte di attendere circa 40 
secondi per il caricamento e l’attivazione delle nuove 


Listato 1. Il programma Beep ed errori " sonorizzati ”. 

0 R E M * * He * * He He He He He He * He He He He * * He He * He He He 

1 REM * He 

2 REM ***** BIP PER C.64 ***** 

3 REM * * 

4 REM * DI * 

5 REM * MAURIZIO PROLINELLI * 

:l 0 R E M * * * * * * * * * * * * * ******** * * * 

12 PRI NT " LTM" SPC <: 8 > = FORI =0TO23 = PRI NT " * " ; » HE NT : PRI NT 
14 PRINTSPCC8>"**•*** BIP PER C.64 **:+**" 

16 PR INTSPC < 8 > = FOR I =0TO23 = PR I NT " * " .: NE NT = PR I NT 

18 PRI NT" RIATTENDI CIRCA 40 SECONDI, PREGO!" 

19 REM *** RICOPIA BASIC IN RAM *** 

20 FOR I =40960TO49151» POKEI, F’EEK < I > < NEXT 
29 REM *** SOSTITUISCI LET CON BIP *** 

38 P0KE41150,66 = P0KE41151,73 = P0KE41152,208 
32 POKE40988,255 = POKE40989,191 

39 REM *** LETTURA NUOVE ROUTINE *** 

40 A=0:FORI=49152TO49203 = READN = A=A+N = POKEI,N = NEXT 

42 IFA05614THENPRINT"TERRORE NELLE ISTRUZIONI DATA ! " 1 END 

49 REM *** NUOVO INDIRIZZO ROUTINE STAMPA ERRORI *** 

50 P0KE768,40 = P0KE769,192 

51 REM *** ABILITA IL NUOVO BASIC *** 

52 POKE 1,54 •• PR I NT " LTWNUQVO BASIC ABILI TATO ! " : NEW 
60 END 

99 REM *** ROUTINE BIP *** 

100 DATA 169,0, .141,4,212, 141,5,212, 141,6,212, 141,2,212, 169,7, 141 
110 DATA3,212,169,34,141,5,212,169,82,141,1,212,169,65,141,4,212 
120 DATA169,15,141,24,212,96 

199 REM *** ROUTINE STAMPA ERRORI *** 

200 DATA138,48,6,32,0,192,76,58,164,76,116,164 
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Beep 
e errori 

“sonorizzati”_ 

routine. 

La linea 20 ricopia l'interprete BASIC in RAM in modo 
da consentirne le necessarie modifiche (risiedendo l'in¬ 
terprete BASIC in ROM, non è possibile modificarlo 
direttamente). 

Routine di Bip 

C000 LDA #$00 

C002 STA SD404 Azzeramento 

C005 STA $D405 del SID 

0)08 STA SD406 

COOB STA $D402 

COOE LDA #$07 Fissa la pulse 

CO IO STA $D403 waveform width 

CO 13 LDA #$22 Fissa 

CO 15 STA SD405 Attack/decay 

CO 18 LDA #$52 Fissa la frequenza 

COI A STA $D401 (byte alto) 

C01D LDA #$41 Seleziona la pulse 

COIF STA $D404 waveform e setta Att/Dec/Sus 

C022 LDA #$0F Volume al 

C024 STA $D4I8 massimo 

C027 RTS 

Nuova routine stampa errori 

C028 TXA Codice errore in A 
C029 BM1 $C031 Se A < $80 (errore) 

C02B JSR $0)00 esegui un Bip e 

C02E JMP $A43A stampa messaggio errore 

C03I JMP$A474 Altrimenti stampa Ready 

Figura I. Il disassemb/ato delle nuove routine. 



Le linee 30-32 modificano il nome e l’indirizzo del co¬ 
mando Let nelle tabelle dei comandi e degli indirizzi. 
La linea 40 scrive, a partire dall’indirizzo precedente- 
mente fissato, la subroutine Bip e, di seguito, la modifi¬ 
ca da apportare alla routine standard di stampa degli 
errori (il cui indirizzo risiede nelle locazioni $0300, 
$0301), per ottenere la sonorizzazione degli stessi. 

Dopo aver effettuato un controllo sulla correttezza 
dei valori dei Data letti nel programma (linea 42), le 
linee 50-52 specificano l’indirizzo della nuova routine di 
stampa degli errori, selezionano l’area RAM in cui è 
scritto il nuovo interprete e, dopo averne comunicato 
l’abilitazione, liberano completamente l’area BASIC 
che resta interamente a disposizione dell’utente (le nuo¬ 
ve routine occupano 52 byte di memoria nel’area$C000 
- SC033). 

In figura I è riportato il disassemblato delle nuove 
routine con i relativi commenti. 

Si tenga presente clic è possibile tornare in qualsiasi 
momento al BASIC originale digitando Poke 1,55 op¬ 
pure premendo contemporaneamente i tasti Run/Stop e 
Restore (gli errori resteranno comunque “sonorizzati”). 
Per ripassare dal BASIC originale a quello modificato, 
occorre invece digitare Poke 1,54. 

Un’ultima osservazione. Quando si carica un pro¬ 
gramma che contiene il nuovo comando Bip, bisogna 
accertarsi che il nuovo BASIC sia già stato caricato e 
abilitato. In caso contrario il nuovo comando Bip non 
sarà interpretato e verrà segnalato un Syntax Error nelle 
linee che lo contengono. 


ERRATA CORRIGE 


Dentro l’avventura per C 64 

Le linee da 2591 a 2598 del listato 1 della 
parte seconda, pubblicata a pag. 93 del nu¬ 
mero 24 (Gennaio 1985) vanno leggermente 
modificate. Tutte le variabili Echecompaio¬ 
no nelle istruzioni citate, vanno sostituite 
con la lettera Z. Ad esempio: 

2591 FOR Z = 1 TO 5 

2592 IFOG$(Z) = SO$THEN2595 


Torneo di bridge per Apple II 

Per un corretto funzionamento del program¬ 
ma Bridge-Memorizza pubblicato a pag. 57 
del numero 23 (Dicembre 1984) occorre ag¬ 
giungere le seguenti nuove linee: 

8691 FOR I = 1 TO X 

8692 PP (I, KK * 3 - 2) = PA (I, 1) 

8693 PP (I, KK * 3 - 1) = PA (I, 2) 

8694 PP (I, KK * 3) = PA (I, 3) 

8695 NEXT I 

8861 FOR I = 1 TO X 

8862 PP (I, NB * 3 - 2) = PA (I, 1) 

8863 PP (I, NB * 3 - 1) = PA (I, 2) 

8864 PP (I, NB * 3) = PA (I, 3) 

8865 NEXT I 
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SHARP PC-1251 

Come sproteggere i programmi 

di Mauro Lenzi 

Chiunque possieda un personal computerò semplice- 
mente si interessi un po’ di informatica avrà certamente 
sentito parlare della vastità e dell’importanza del pro¬ 
blema della segretezza e della protezione dei program¬ 
mi. 

Le case produttrici di software adottano sempre nuovi 
metodi per cercare di rendere impossibile la copiatura 
dei propri programmi, ma regolarmente i “pirati” ri¬ 
escono a neutralizzarli, talvolta impiegando anche mez¬ 
zi molto costosi e mesi di lavoro. 

Considerato che essi, di solito, lo fanno come una specie 
di hobby, senza ricavarne dei guadagni, si finisce col 
vederli con una certa simpatia anche se si tratta di azioni 
non proprio legali. 

Questa volta però saremo noi i pirati e scopriremo come 
si può sproteggere un programma dello Sharp PC-1251. 
Questo computer possiede una particolare istruzione 
che permette di proteggere i programmi: l’istruzione 
PASS. 

La sua sintassi è molto semplice: si usa in modo diretto e 
deve essere seguita da una stringa di non più di sette 
caratteri, la password. Se, ad esempio, digitiamo: 

PASS “SEGRETO” 

proteggiamo il programma in memoria con la parola 
chiave “segreto”: fino a quando non si ripeterà il co¬ 
mando 

PASS “SEGRETO” 

ogni tentativo di listare o correggere il programma sarà 
vano. 

Inoltre è possibile proteggere un programma anche 
quando viene registrato, usando l’istruzione: 

Csave “nome del programma”, “password”. 

Anche in questo caso, per potere listare un programma 
letto da un nastro, che sia stato registrato con la prote¬ 
zione, dovremo fare seguire al comando Pass la parola 
chiave. 

Il problema è dunque chiaro: per potere sproteggere un 
programma dobbiamo scoprirne la password. 

Credo che molti lettori che hanno seguito i miei articoli 
fino ad oggi siano perfettamente in grado di trovare la 
risoluzione da soli (io ho impiegato solo 15 minuti!) 
perché il sistema è sempre il solito: il computer deve 
naturalmente ricordarsi qual’è la password e perciò 
deve scriversela da qualche parte nella memoria RAM. 
Questo significa che se digitiamo: 

PASS“AAAAAAA” 


in qualche segreta zona della RAM verranno scritti sette 
numeri uguali, corrispondenti alla lettera A che si è vista 
già in uno degli articoli precedenti essere associata al 
numero 81. Molto probabilmente quindi a partire da un 
indirizzo di memoria compreso fra 45056 e 65535 sono 
stati memorizzati sette 81 uno di seguito all’altro. 

Il programma 1 serve proprio a cercarli. Per ragioni di 
velocità non conviene controllare che gli 81 siano sette, 
ma è sufficiente andare alla ricerca di una semplice 
coppia di 81, così possiamo controllare solo due byte 
ogni sei. È ovvio che una volta trovata una coppia di 81 
verificheremo che sono effettivamente sette e non solo 
due. Facendo girare il programma, dopo circa dieci 
minuti si udiranno tre bip e verrà visualizzato il numero 
59564. 

Con qualche ulteriore semplice verifica è facile vedere 
che tutti i byte da 59561 a 59567 contengono il numero 
81 e sono perciò proprio gli indirizzi di memoria che 
stavamo cercando. 

Come controprova usiamo come password la stringa 
“ABCDEFG”: negli indirizzi da 59561 a 59567si trove¬ 
ranno rispettivamente i numeri 81,82, 83,84,85,86,87. 
Abbiamo così risolto il nostro problema: ogni volta che 
ci troveremo di fronte ad un programma protetto per 
scoprire la password, lettera per lettera, digiteremo le 
sette istruzioni rappresentate nella figura 1. 

Se invece non ci interessa conoscere la password, ma 


Programma 1. Con questo programma si trova la 
sequenza di sette SI corrispondenti alla password 
“AAAAAAA”. Prima di farlo eseguire, e dopo aver¬ 
lo immesso nella memoria dobbiamo proteggerlo col 
comando Pass "AAAAAAA”. 

10 X = 45056 

20 IF PEEK X = 81 AND PEEK (X + 1) = 81 THEN 
BEEP 3 : PRINT X 
30 X = X + 6 : GOTO 20 
PASS “AAAAAAA” 


CHRS (PEEK 59561 - 16) 

CHRS (PEEK 59562 - 16) 

CHRS (PEEK 59563 - 16) 

CHRS (PEEK 59564 - 16) 

CHRS (PEEK 59565 - 16) 

CHRS (PEEK 59566 - 16) 

CHRS (PEEK 59567 - 16) 

Figura 1. Digitando, una alla volta queste sette 
istruzioni si troveranno- le lettere della password 
sconosciuta; se la password è lunga meno di sette 
lettere, allora ne! byte seguente quello dell’ultima 
lettera ci sarà uno zero. 
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solo sproteggere il programma si può usare un metodo 
più veloce. 

Vediamo cosa accade se proteggiamo un programma 
con una parola di lunghezza inferiore a sette caratteri, 
ad esempio: 

PASS“AAA” 

Nei suddetti indirizzi di memoria troveremo la sequenza 
81, 81,81,0, 85, 86, 87. Ciò clic ci interessa è osservare 
che, in questo caso, viene posto uno zero per indicare 
che i numeri corrispondenti alla password sono finiti 
(gli ultimi tre numeri riguardano la password che aveva¬ 


mo usato prima). Allora, andando a mettere uno zero 
nel primo byte di questa sequenza, faremo credere al 
computer che la password sia di zero caratteri! 

Quindi, qualunque sia la password segreta, si può 
sproteggere il programma semplicemente digitando: 

POKE 59561,0 
PASS“ ” 

Naturalmente il lavoro del pirata non si ferma qui, 
perché, ora che abbiamo scoperto un trucco, chi vorrà 
mantenere segreti i propri programmi ne escogiterà uno 
ancora più difficile! 
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TEXAS TI99/4A 


Sub Copy 

di Sergio Borsani 

Parliamo di stampante e soprattutto di come ottenere 
una hard-copy di ciò che appare sul video in un dato 
istante. Intendiamoci, se lo schermo presenta solo sim¬ 
boli appartenenti al normale set di caratteri la cosa non 
presenta alcuna difficoltà, basta leggere il contenuto 
dello schermo con l'istruzione Cali Gchar e stampare i 
corrispondenti caratteri ASCII. Ben più interessante ed 
in prospettiva più ricco di applicazioni è il poter ripro¬ 
durre su carta anche i caratteri definiti dall’utente. 
Ahimè, mi sono sempre rammaricato del fatto che il 
nostro TI Extendcd BASIC non possedesse i comandi 
grafici Pset, Line, Circle, Paint, Draw, ecc. ma, con un 
po’ di pazienza e una bella sequenza di Cali Char qual¬ 
cosa si può fare pur con la limitazione dello scarso 
numero di caratteri ridefinibili. Tuttavia, una volta cre¬ 
ati disegni ad alta risoluzione sorge il problema di come 
stamparli. La stampante a matrice di punti della Texas 
altro non è che una Epson MX-80 e possiede notevoli 
capacità grafiche anche se non sono molto diffusi pro¬ 
grammi di utilità in grado di sfruttarle pienamente. La 
routine che qui presentiamo permette di ottenere una 
esatta copia del video o di una parte di esso, con tutti i 


caratteri grafici eventualmente presenti. Ovviamente 
non è assolutamente conveniente usarla se mancano 
caratteri ridefiniti in quanto con essa il video viene 
scandito pixel per pixel con i tempi, non certo brevi, che 
l’operazione comporta. La routine è stata organizzata 
come sottoprogramma in modo che si possa agganciare 
ad un normale programma, senza la preoccupazione di 
usare alcune variabili comuni. Il sottoprogramma, al 
quale è stato dato il nome di Sub Copy, potrà essere 
richiamato in particolari momenti alla pressione di un 
tasto di funzione. 

Per sfruttare pienamente le capacità grafiche della 
stampante occorre mettere nella posizione Off il dip 
switcli SW2-I. È questo un interruttore interno alla 
stampante, collocato sul quadro dell’interfaccia seriale. 
L’accesso all’interruttore è semplicissimo. Svitate le 
quattro vili che tengono fermo il coperchio e tolto que¬ 
st’ultimo con cautela, si presenta in modo evidente il 
quadro dell’interfaccia seriale nella posizione indicata 
nella figura a pag. 101 del manuale. Sul quadro sono 
presenti due serie di piccoli interruttori, un gruppo a 
quattro poli ed uno a otto poli. L’interruttore SW2-1 è il 
primo della serie di quattro ed è tarato dalla casa nella 
posizione On. In tal modo nella testina di stampa sono 
attivati sette fili per colonna mentre, ponendo lo stesso 
interruttore nella posizione Off sono attivati otto fili per 
colonna. La ragione di tutto ciò è evidente: in un testo 
c’è sempre una fila di pixel inutilizzata che separa una 
riga dall’altra ed i caratteri, pur essendo definiti in una 
matrice di 8 x 8 punti, ne utilizzano al massnio sette in 
altezza. Il discorso cambia se i caratteri vengono ridefi¬ 
niti per creare della grafica. In tal caso vengono utilizza¬ 
ti tutti i pixel e conseguentemente nella testina di stampa 
avremo bisogno di otto fili. Per inciso, c’è un program¬ 
ma di utilità che permette lo stesso risultato senza modi¬ 
ficare il dip switcli SW2-1, ma è più complicato, di più 
lenta esecuzione e non è giustificato, data la facilità di 
accesso all’interruttore interno. 

Veniamo più dettagliatamente al sottoprogramma Sub 
Copy. Come tutti i consimili va posto al termine del 
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Listato 1. Il sottoprogramma Sub Copy. 

1000 SUB C0PY(R1,R2,C1,C2) 

1010 IF R2<R1 OR C2<C1 THEN SUBEXIT 
1020 IF R1<1 OR R2>24 OR C1<1 OR C2>32 T 
HEN SUBEX IT 

1030 OPEN #4:"RS232.CR.Dft=8" :: PRINT #4 

; CHR$ (27)5 CHR$ ( 65 ) 5 CHR$ (0)5 

1040 FOR R=R1 TQ R2 : : FOR C=C1 TO C2 : : 

CALI. SCHAR (R, C, N) : : CALE CHARF'AT (N, W$> 
1050 PRINT #4:CHR$(27)5"K"5 CHR$(8)5CHR$( 
0) 5 

1060 FOR K=3 TO 0 STEP -1 :: 0=0 :: FOR 
E=1 TO 15 STEP 2 

1070 D=ASC(SEG$<W$,E,1)): : IF D<60 THEN 
D=D—48 ELSE D=D~55 

1080 D=D AND 2""K :: IF D THEN Q=Q+2-'" (7-1 
NT(E/2)) 

1090 NEXT E :: PRINT #4:CHR*(G)5 
1100 NEXT K 

1110 FOR K=3 TO 0 STEP -1 ; : 0=0 :: FOR 
E=2 TO 16 STEP 2 

1120 D=ASC(SEG$(W$,E,1)): : IF D<60 THEN 
D=D-48 ELSE D=D-55 

1130 D=D AND 2' S K :: IF D THEN 0=0+2^(8-1 
NT(E/2)) 

1140 NEXT E :: PRINT #4;CHR$(Q)5 
1150 NEXT K 

1160 NEXT C :: PRINT #4:CHR*(13)jCHR*<10 
) 

1170 NEXT R 

1180 PRINT #4:CHR$(27)5 CHR$(65)5 CHR$(12) 
; : : CL.OSE #4 
1190 SUBEND 


Listato 2. Il sottoprogramma Sub Copy 
con immessi i dati. 

100 REM PROVA 

110 REM SOTTOPROGRAMMA 

120 REM *** SUB COPY *** 

130 REM 

140 DATA FFFFFFFF07070707,FDFDFDFD81818181 
150 DATA EOEOEOEOEOEOEOEF,OF1F3F7C78787C3F 
160 DATA COEOF1FB7B7BFBF9,7EFFFFE7C3C3E7FF 
170 DATA 000080C0C0C1C1C3,307060E1C2C4B992 
180 DATA 3E42822262A22222,0304040408090912 
190 DATA EO10109088484824,0707070707070707 
200 DATA 8181818181818181,EFEFEOEOEOEOEOEO 
210 DATA 1F0F00787F3F1F0F,FB7878FBFBF1E0C0 
220 DATA FF7B03C7FFFFFF7E,C3C7C6CECC9C1818 
230 DATA 274040407F000000, E3010101E322223E 
240 DATA 121320202047447C,24E4020202F111IF 
250 FOR J=100 TO 121 :: READ W* 

260 CALL CHAR( J,W*): : NEXT J 
270 CALL CLEAR 

280 FOR J=*10 TQ 20 :: CALL HCHAR(12,J,90+J>: : NEXT J 
290 FOR J=10 TO 20 :: CALL HCHAR(13,J,101+J):: NEXT J 
300 CALL G0PYU2, 13, 10,20) 

310 END 

1000 SUB COPY(RI,R2,CI,C2) 


1220 SUBEND 


programma utente, dopo l’istruzione End. Viene chia¬ 
mato con una Cali, rispettando una precisa sintassi 
come se-si trattasse di una nuova istruzione. La forma 
da usare è: Cali Copy (RI, R2,Cl,C2),doveRl,R2,Cl 
e C2 sono i numeri delle righe e delle colonne che 
delimitano la parte di video da copiare. Se i valori 
indicati non rientrano nell’intervallo ammesso il sotto¬ 
programma Copy non viene eseguito e la sua chiamata 
non ha alcun effetto. 

La linea 1030 del listato apre il file #4 per comunicare 
con la stampante e fissa a 8 l’interlinea in modo che ogni 



Figura 1. L'hard-copy su stampante. 


linea di stampa sia a diretto contatto con quella che la 
precede. 

La linea 1040 inizia il ciclo di lettura della porzione di 
video da copiare. Successivamente viene dichiarato l’in¬ 
vio di 8 byte per la stampa in bit-map a densità normale 
(linea 1050). Nel computer il pattern dei caratteri è 
definito in codice esadecimale ed occupa 8 byte corri¬ 
spondenti a 8 righe di pixel, ordinate dall’alto verso il 
basso; invece, un analogo carattere sulla stampante, 
viene definito da 8 valori decimali corrispondenti a 8 
colonne ordinate da sinistra a destra. Pertanto l’istru¬ 
zione 1070 ricava uno ad uno i codici esadecimali e li 
trasforma in valori decimali mentre la 1080 ricava il 
numero Q corrispondente ad una fila verticale di otto 
punti nel modo grafico in bit image. Il ciclo viene com¬ 
piuto due volte per i due semibyte di sinistra e di destra e 
le linee 1110-1150 svolgono una funzione analoga a 
quella fino ad ora considerata. Interessante è notare 
l’uso dell’operatore logico And alle linee 1080 e 1130; 
poiché ognuno dei 16 codici esadecimali che definiscono 
un carattere corrispondono a 4 pixel, l’operazione boo- 
leana And mette in evidenza la presenza^di uno dei 4 
punti alla volta, al variare del valore di 2 K. 

Per illustrare il funzionamento del programma abbiamo 
riportato il listato 2. In esso vengono definiti alcuni 
caratteri per creare la scritta TI99/4A in formato gigan¬ 
te. Dopo le istruzioni che fanno apparire la scritta sullo 
schermo si nota, alla linea 300, la chiamata del sottopro¬ 
gramma Cali Copy (...). Come è stato detto, il program¬ 
ma principale deve terminare con l’istruzione End alla 
quale farà seguito il sottoprogramma Sub Copy (listato 

I possessori del sistema a dischi troveranno molto utile 
agganciare con un Merge questa utility a molti pro¬ 
grammi già in loro possesso. ■ 
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PROGRAMMAZIONE 
DELLO ZX SPECTRUM 

Aggiungete suono e colore 
ai vostri programmi, 
scoprite lo SPECTRUM 
negli affari e nell'istruzione, 
giocate e imparate a 
scrivere i giochi, disegnate 
figure in 3 dimensioni. 

212 pag. L. 18.000 
Cod. 531 D. 


APPLE MEMO 

Sintassi dei comandi, codici 
dei caratteri, messaggi di 
errore, linguaggio 

macchina, indirizzi utili. 

Un libro destinato a stare in 
permanenza a fianco del 
vostro Apple. 

146 pag. L. 15.000 
Cod. 340 H. 


BASIC SU APPLE 
programmi in pochi minuti 

65 programmi pronti che vi 
risolveranno problemi che 
vanno dalla “economia 
domestica", alle 
applicazioni commerciali, ai 
calcoli statistici, alla 
creazione degli archivi. 

184 pag. L. 14.000 
Cod. 532 H. 


APPLE TUTTO FARE 
Collegamenti e progetti 

Questo libro è stato scritto 
per chiunque voglia capire 
come l'APPLE e gli altri 
home computer, possano 
essere interfacciati con il 
mondo esterno. 

208 pag. L. 18.000 
Cod. 334 D. 


PET/CBM GUIDA 
ALL'USO VOL. 1 e VOL. 2 

È la versione italiana del 
famosissimo testo 
americano: “PET/CBM 
Personal Computer Guide” 
ed è presentato in due 
volumi data l’ampiezza e la 
profondità degli argomenti 
trattati. In questo manuale 
troverete tutto ciò che è 
necessario sapere sui 
calcolatori COMMODORE. 
VOL 1 250 pag. L. 20.000 
cod. 332 P 

VOL 2 282 pag. L. 22.500 
cod. 333 P 


La Biblioteca 
che fa testo 

~~ ~ CEDOLA DI COMMISSIONE LIBRARIA 

VOGLIATE SPEOIRMI 


n* copie 

codice 

Prezzo unitano 

Prezzo totale 














Totale 


□ Pagherò contrassegno al postino il prezzo Indicalo più L. .000 per contributo naso 
spase di spedizione 


Condizioni di pagamento con esenzione del contributo spese di spedizione: 
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Commodore 


Vendo, per passaggio a sistemo superiore. VIC 20 piu C2N. 
loystick espansione grafica da 3 Kbyte RAM. penna otbc8. 
molto software su cassetta II tutto corredato da manuali Praz 
zo L 400.000. Vladimiro Toschi - Via Bentivogli. 32 - 40055 
Castenaso (BO) - Tel. 051/784271 

Cambio per CBM 64 molto software, sia su cassetta che su 
disco. Possiedo molti giochi, utility e gestionali. Scrivere a 
Gianni Gandoifo - Viale Hanbury. 10/1 - 17021 Alassto (SV) - 
Tel 0182/42458 

■ Vendo a prezzi irrisori lutti I migliori games e Utilities In ■ 

■ circolazione per CBM 64 (Magic Desk. Easy Script Sam ■ 
| ecc ) Vendo anche m blocco 50 programmi a scelta a sole ■ 

■ L 50.000. Beppe Almansi - Via G Chiassi. 6 - 25100 ■ 

P Brescia • Tei. 030/306307 p 

Cambio, vendo 300 programmi por VIC 20 in LM e RLM Scrive¬ 
temi. vi invierò il mio catalogo con relative istruzioni Carlo 
Vincenzi • Via Resistenza. 26 - 41033 Concordia S/S (MO) - 
Tel 0535/54325 

■ Vendo per Commodore 64 il programma "80 Colonne ■ 

■ Software" su cassetta a L 25 000 Ezio Bovio - Via L ■ 

■ Miglio. 32 - 28043 Bellinzago (NO) • Tel 0321 /98430 ■ 

Vendo programmi per Commodore 64. giochi e utilità Richie¬ 
dete la lista e spedite la vostra Alcuni esempi: Gyruss. Pii Stop 
Pongo, Magic Desk, tutti in Turbo Tape Prezzi da L 5.000 
Annuncio sempre valido Luigi Bellini - Via Venezia. 121 - 
30039 Strà (VE) 

Cambio o vendo a L 2.000 software per Commodore 64 e 
sistemi MSX. Scrivere o telefonare a Maurizio Lattuada • Via A. 
Panizzi. 13 - 20146 Milano - Tel 02 427890 


Commodore 64 - vendo programma gestionale: memorizza 
fatture ai fini IVA. stampa registro o corrispettivi, provvede alla 
liquidazione trimestrale, stampa l'elenco annuale clienti/forni¬ 
tori © dichiarazione annuale IVA. Luciano Usuelli - Via Isonzo. 
31 - 21100 Varese (VA) - Tel 0332/242596 

Vendo a prezzi eccezionali I migliori programmi in commercio 
per CBM 64 Per ricevere la lista scrivere a. Fabio Cerfogli - Via 
Sicilia, 120 - 91019 Valderice (TP) 

Cambio programmi di qualsiasi tipo per C64. solo regione 
Marche. Inviare lista o contattare tolefonicamente ore pasti 
Morco Cmgolani - Via Bevagna, 12 - 62019 Recanati (MC) - Tel 
071/9841699 

Vendo oltre 650 giochi originali americani per CBM 64 Ogni 
gioco L 5 000 su nastro, da L 1.500 a L 25000 su disco, 
tantissimi listati Telefonare ore negozio o scrivere, a richiesta 
catalogo Walter Cacioni - Via Dei Mille. 26 - 00185 Roma - Tel 
06/4956604 

Cambio o vendo oltre 200 programmi per C64 a prezzi strac¬ 
ciati (es Flight Simulator 2. Informasi. Doodie. Homeword. Mu¬ 
sicale. Pinball. Jet Set, Summor Games e tanti altri). Cerco 
Movie Maker. Renato Menegatli - Via Piemonte. 26 - 20052 
Monza (MI) 

Vendo programmi su disco/cassetta per il CBM 64 e per il VIC 
20 a prezzi da sballo. Se sei un principiante non perdere questo 
affare Per maggiori informazioni scrivere a Massimo Tabasso 
- Piazza Motmeris. 1 - 12038 Savigliano (CN) 

■ Vendo o cambio circa 500 programmi per C64 a prezzi ■ 

■ incredibili La migliore grafica per giochi e avventure ed i ■ 

■ migliori programmi di utility Rispondo a tutti. DanoBetlotti ■ 

■ Via Busi. 50 - 25086 Rezzato (BS) - Tel 030/2773996 ■ 

Cambio, vendo programmi su disco e cassetta per C64 Tutte le 
migliori utilità e i giochi più belli a partire da L. 2.000. Telefonare 
oro serali. Michele Petracca - Via Donatello. 12-35027 No ven¬ 
ta Padovana (PD) - Tel 049/627164 

Dino Corps Club. Possediamo circa 1.500 programmi su disco 
• nastro per C8M 64. ultime novità Vendiamo anche, per VIC 
20. interfaccia per registrare da tape a tape con tape Commo¬ 
dore comandati e inseriti entrambi nel computer, e joystick 
versione bar con fireautomatico. Agli acquirenti regaliamo 3 
fantastici giochi. Alfonso Dinota • Via Danila. 61 - 00179 Roma - 
Tel 06/7884472 


Cambio, vendo oltre 350 ottimi programmi su nastro (giochi, 
utility, ecc.). L'annuncio 6 sempro valido. Inviare liste o telefo¬ 
nai© ore pasti. Calogero Carroccio - Via Ten. SiroBrigiano. 21 - 
98057 Milazzo (ME) - Tel. 090/926123 

Cerco disperatamente il listato del programma Editor/Assem- 
bier In BASIC per CBM 3032 apparso sul nr 2 di "Personal 
Software Sono disposto anche a pagarlo il prezzo di una 
rivista. Arduino Freschi - Viale Bernardino Da Morcote. 2 • 
33100 Udine - Tel 0432/478390 


Compro Commodore 64 in otlimo stato, offro cifre favolose a 
chi mi offre registratore e floppy compatibili e software di prima 
fattura, possibilmente in regione Friuli. Arduino Freschi - Viale 
B Da Mortole 2 33100 Udine - Tel 0432/478390 

Vendo per Commodoro 64 200 programmi su cassettam Turbo 
Tape tra cui: Pascal. FORTH. Sintetizzatore Vocale. 80 Colon¬ 
ne. Koala Pamter. Popeye. Screen Graphics. Composer. ecc. 
tutto a L. 110 000 m contrassegno. Paolo Anania - Via Capuana. 
56 - 00137 Roma Tel 06/823514 

Cambio programmi per CBM 4032 Vasta disponibilità di soft 
ware. programmi professionali, giochi. Utilities, massima serie¬ 
tà Inviate la vostra lista, rispondo a tutti Antonio Monaco - Via 
Orlandim. 29 - 91100 Trapani - Tel. 0923/27578 

H Eccezionale' Vendo migliala di progr.H rno- ■ 

■ dorè 64. Programmi di tutti i tipi: giochi • utility - gestionali - ■ 

■ backup - musica • linguaggi e ultimissime novità Scrivere ■ 

■ a Domenico Gallò • Contrada Guido.36- 88029 Serra San ■ 

■ Bruno (CZ) - Tel 0963/71210 ■ 

Per VIC 20 vendo cassetta C60 piena di programmi di cui 
alcuni in LM Fra i tanti Amok. Pac Man. Raid Onlsram II tutto a 
L 40 000 Telefonare dopo te ore 18 o la domenica Claudio 
Cadetti - Via XV Martiri. 2 - 20090 Vwnodrone (Mlj Tei 
02/2503556 

■ Cambio programmi per C64. Vasta disponibilità games. ■ 

■ utility, gestionali e radioamatouali. Prego contatti solo per ■ 

■ scambio (non acquisto nò vendo). Bruno Castelnuovo - ■ 

■ Via S Antonio. 3 - 23020 Montagna in Valtellina (SO) - Tel ■ 

■ 0342/380234 

Vendo giochi fantastici e cassette per C64 Non vondo giochi 
su floppy. Per sapere tutto sui miei giochi telefonare dalle 19 
alle 20.30. Moreno Air old* - Via Cuggiono. 64 - 20020 Arconate 
(Mi) Tel 0331/460002 

Vendo, cambio programmi di utlity per CBM 64 Prezzi da L 
3000 a L 18.000 Scrivere a Bellofiore Giuseppe • Via Aurelia 
502 - 57012 Castighoncello (LI) - Tel. 0586/752135 

Per CBM 64 vendo giochi e programmi di utilità su cassetta a 
prezzi vantaggiosi Dispongo di molto software in linguaggio 
macchina tra cui molti giochi originali inglesi eamericnnl Dieci 
giochi a L 18.000 Marco Silvagni - Via G. Quatti ucci. 386 - 
0046 Grottaferrata (RM) • Tel 06/9456255 

Vendo a L 8.000 raccolta dei più potenti copiatori per nastro e 
disco esistenti per C64 Su ogni disco troverete- Doublé Image. 
Dismimik 4 6 Quickcopy 20. 3 Minutes Copy. Connection. 
Copy 190. Tape Backup, ecc. ecc. Alfredo Dai Ferro - Via 
Forn ace. 3 - 2104 0 Castionno (VA) - Tei. 0332/495989 

Cambio, vendo H miglior software per CBM 64 Prezzi bassissi¬ 
mi e celerità assicurati Massima serietà, meglio telefonare 
dalle 14 alle 16. Grande assortimento anche di videogames 
Francesco Pucci - Via Porris. 14 - 84012 Angri (SA) - Tel 
081/949312 

Sono un possessore di CBM 64 e sono molto interessato all'ac¬ 
quisto di programmi su nastro: utility, giochi e programmi per 
Totocalcio. Inviatemi le vostre liste e i vostri prezzi Graziano 
Silvestri - Via Arcipelago Toscano. 6 - 57018 Vada (LO 

Vendo VIC 20 più registratore C2N. 8 Kbyte RAM. super expan- 
der. 6 cassette con giochi, utility, van tibn. Tutto in perfette 
condizioni a L 350000 Umberto Crotti - Via Lidice. 4 • 42015 
Correggio (RE) - Tel 0522/604144 

Vendo, cambio programmi per C64 tra cui Magic Desk. Data 
Base. ecc. Fra i giochi Summer Games e altri Nicola Murgia - 
Via Augusto Righi. 2 06100 Perugia - Tel. 075/72218 

Cambio programmi di ogni tipo per Commodore 64. Dispongo 
di utilità come Multiplan, fatturazione e magazzino Telefonare 
ore pasti Giuseppe Borracci - Via Mameli. 15 - 33100 Udine - 
T»L 0432/291666 _ 

Cambio oltre 800 programmi per Commodore 64 Novità ogni 
settimana, rispondo a lutti Paolo Trave - Via Mascagni. 11 - 
10092 Bemasco (TO) - Tel 011/3490172 

Vendiamo o cambiamo programmi su cassetta o su disco per 
Commodore 64 (preferibilmente zona Torino) Fabrizio Sta¬ 
gliano - Via Servais. 73 - 10146 Tonno - Tel 011/720656 

Vondo a prezzi eccezionali I migliori programmi in commercio 
per CBM 64. Richiedere la lista a Fabio Cerfogli • Via Sicilia. 
120 - 91019 Valdenco (TP) 

Per il VIC 20 dispongo di 280 programmi di tutti i tipi e per 
qualsiasi configurazione Novità assoluta: dispongo dt lutti i 
giochi provenienti da cartndge salvati su nastro Per informa¬ 
zioni e richiesta lista telefona/ea: Diego Gelsomino - Via Cervi - 
gnan o. 2 - 20137 Mi lano - Tel 02/5 7544 
Vendo Commodore VIC 20 piu C2N. espansione 16 Kbyte. 
joystick, scacchi. 90 programmi Tutto in garanzia e perfetta¬ 
mente funzionante Prezzo eccezionale di L. 500 000 trattabili (i 
programmi sono 140) Claudio Morgia - Via Dei Zeno. 31 - 
00176 Roma • Tel 06/2772314 


Vendo in blocco per Commodore 64 2 giochi su cartuccia: 
"Radar Rai Race" o "Vislblo Solar System" più cassetto scac¬ 
chi 'Grand Master". ‘ Introduzione al BASIC" parte prima con 
manuale e cassette, il tutto a L. 120.000. Scrivere o telefonare a: 
Gmo Gelsomino - Via Belvedere. 10 - 10011 Aglio (TO) • Tei. 
0124/33213 ___ 


Cambio, vondo programmi per Commodore 64 a prezzi a dir 
poco irrisori. Esempio Zaxxon. OneOn One, Infernational Soc¬ 
cer. Golden Baton o altri a L. 4.000 cadauno. Vito Romano - Via 
Medaglie D'Oro. 93 - 87100 Cosenza - Tel 0984/35732 

Vendo oltre 600 programmi per CBM 64. linguaggi, utility, gio¬ 
chi su floppy © cassetta Telefonare ore pasti Federico Chieli - 
Via Volturno, i • 10133 Tonno - Tel 011/6506228 

Cambio, vendo circa 500 programmi per CBM 64. dispongo dt 
ultime novità per giochi e copiatori Silvano Bompien - Via 
Baccaglio™ 8 46040 Monzambano (MN) - Tel 0376/845372 
Per C64 dispongo di oltre 600 programmi, fu i quali Dismmuc 
Bi-Seclor e quattro tipi di Olimpiadi Vi assicuro risposta Tele¬ 
fonare o scrivoro a: Alberto Rigato - Via Platani, 6 • 31033 
Castelfranco Veneto (TV) - Tel. 493558 

Cambio, vendo circa 120 programmi per C64 Dispongo di 
Hero. Pillali II. Blue Max. Zaxxon. Decathlon. Falcon Palrol II. 
Basket. Orango, ecc Su cassetta a L 2.000 Telefonare ore 
pasti Corrado Cornagli© - Via XX Settembre. 33 -15100 Ales¬ 
sandria (AL) • Tel 0131/40108 

Per CBM 64 cerco gestionali e didattici; in cambio cedo bellis¬ 
simi giochi e ottimo utility. Ira • migliori in commercio, solo su 
cassetta Paolo Pallara - Piazza Salerno. 3 - 73100 Lecce - Tel 
0832/54514 


Sono disposto a cambiare o vendere programmi per il CBM 64. 
Inviare lista o telefonare ore 13 - 17 Dispongo di moltissimi 
programmi o utility. Nicola Esposito - Via Marchesa. 43 - 80041 
Boscoreale (NA) - Tel 081/8591253 

Compro, cambio, vendo 250 programmi per Commodore 64: 
vtdeogames. Utilities, contabilita, ecc. Inviatemi le vostre liste o 
telefonatemi Pietro Sirena - Viale Risorgimento. 43 - 14053 
Cane!li (AT) - Tel 0141/833228 

VIC 20 Software Club cambia programmi su nastro e aiuta i 
principianti. Assicuriamo risposta a tutti Richiedere regola¬ 
mento club e lista programmi gratuita a: VIC 20 Software Club 
c/o Cinzia Ceccanm - Via Di Vittorio. 10 - 58022 Follonica (GR) 

Cerco disperatamente programmi di Totocalcio per C64. Sono 
disposto a cambiare 1 vostro programma con una cassetta C60 
piena di giochi ojipure anche a comperare i programmi. Pier¬ 
luigi Salvatore • Via Celimi. 15 - 14100 Asti 

Cambio, vendo oltre 500 giochi e utility p< r Commodore 64 
annuncio sempre valido Ubaldo Manchi - Via Valdellatorre. 
174 - 10151 Tonno - Tel 011/7391285 

Cambio 400 programmi per CBM 64 che cederai in cambio di 
un stampante MPS802 o equivalente. Antonio Agus - Via & 
Antonio. 31 - 09016 Igtesias (CA) - Tel. 22423 

Vendo, cambio 250 programmi per CBM 64 a prezzi bassissimi 
Inoltre tra i programmi ci sono molte utility. I giochi sono favolo¬ 
si. stupendi e lutti in linguaggio macchina. Massimiliano Pucci 

- Via Europa. 59 • 66100 Chieti • Tel. 0871/66924 

Vendo centinaia di giochi da L 1.500 a L. 5.000 o programmi di 
utility e gestionali da L 3.000 a L. 10.000. Il tutto por Commodore 
64 Per contatti e mlorrnaziom scrivere o telefonare ore pasti. 
Claudio Corradmi - Via Matteotti. 4 • 36042 Breganze (VI) • Tel. 
0445/874943 

Cambio, vendo utility e giochi su floppy disk. Chiedo ed offro la 
massima serietà Per informazioni rivolgersi a Claudio Butturi- 
ni - Vìa Blumenstihl. 45 • 00135 Ftoma - Tel 06/3496574 
Vendo Commodore VIC 20 più C2N. espansione 16 Kbyte. 
Scacchi, 90 programmi Tutto a L. 500.000 trattabili Tutto in 
garanzia e perfettamente funzionante (i programmi sono 140). 
Claudio Morgia • Via Sabatini • 00144 Roma (zona Torrino) 

Cambio, vendo per C64 bellissimi programmi, sopr.itt 
deogames a L 2.000 cadauno. Almeno 20 programmi Omag¬ 
gio Turbo Tape, spese postali e cassetta Richiedere elenco 
Carta Cavalli • Via L Grossi. 32 - 46100 Mantova 

Vendo C64 mai usato e guida di riferimento per il programma¬ 
tore ad un prezzo molto interessante Telefonare nei giorni 
feriali tia le 18 30 e le 19.30 oppure sabato mattina Diego 
Donatelli - Via isolana. 5 - 37056 Salizzofe (VR) - Tel. 
045/7120068 

Per C64 cambio, vondo cassetta con 20 programmi <• Tuitxj 
Tape in omaggio a L 60 000. Tra i programmi: Decathlon, 
Manie Mmer. Basket. Pinball. Attacco. F104 II. Baseball. Attac¬ 
co. China Mlner. Booga-Boo. Pengo. Scrivere a Fabrizio Fan- 
toni - Via T DalMolin. 51 / A -25015 Desenzano Del Garda (BS) 

- Tel 030/9144880 

Commodonam scambiano software per C64 Scrivere indiffe¬ 
rentemente a: Luca Calvelli • Via Mercadantc. 74 - 10154 
Tonno - Tel 011/277904 oppure a Polo Calvelli - Corso Fer¬ 
rucci. 27 - 10138 Tonno - Tel 011/748778 

Per CBM 64 vendo centinaia di giochi e gestionali anche con 
manuale tn italiano. Richiedere il catalogo, massima serietà 
reciproca. Luigi Boviglia • Casella Postalo. 41 - 21052 Busto 
Arsizio (VA) 

Vendo splendido software su cassetta per C64. soprattutto in 
LM. comprese le ultime novità. Prezzi lino a L 500 per acquisti 
m blocco Risposta assicurata a tutti* Roberto 8ruccoieri • Via 
Torino. 58 - 32088 Centallo (CN) - 0171/714704 
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Compro programmi con manuali In italiano per Commodore 
64. Ubaldo Mancini - Via Valdellatorre. 174 -10151 Torino - Tel. 
011/7391285 ____ 

Vendo VIC 20 più 6 cartucce giochi, circa 150 programmi su 
cassetta, molte riviste, 2 manuali. Oppure vendo solo program¬ 
mi per VIC a L. 1.500, richiedere lista. Tutto a sole L. 450.000 
trattabili. Maurizio Rosso - Via Rinera. 5 - 15030 Rosignano 

Monterrato (AL) - Tel. 0142/88663 _ 

Vendo molti programmi, utility e giochi per CBM 64. a prezzi 
stracciati, tutti caricati con Turbo Tape che vendo a L. 5.000 
compresa cassetta CIO. Invio lista gratuita. Annuncio sempre 
valido. Guido Nocciolini - Via Nenni. 6 - 53100 Siena - Tel. 
0577/285864 _ _ 

Causa passaggio a sistema superiore vendo VIC 20 (Febbraio 
'84) più espansione 32 Kbyte.4 giochi su cartridge. 70giochi su 
nastro. 30 riviste sui computer con circa 50 giochi, registratore 
a L. 560.000. Giorgio Andreoletti - Via Andrea Doria. 17 -21013 
Gallarate (VA) - Tel. 0331/797740 _ 

Compro programma "Flight Simulator" per CBM 64. Possibil¬ 
mente a buon prezzo e programma per duplicare cassette 
protette. Telefonare dalle ore 20. Carlo Imperton - Via Petroc¬ 
chi. 21 - 20127 Milano - Tel. 02/2856427 ___ 

Vendo VIC 20 più registratoreC2N.8 Kbyte RAM, 3 Kbyte super 
expander, molto software, 3 libri. Usato pochissimo, in imballo 
originale a L. 630.000. Telefonare ore pasti. Paolo Zaio - Via Del 
Castagnone. 33 - 13048 Valenza (AL) - Tel. 0131/951096 

■ Dispongo di tutte le ultime novità In fatto di software per ■ 

■ Commodore 64 a prezzi interessanti. Accetto scambi solo ■ 

■ ad alto livello. Scrivere a: Franco Fantoni - P.O. Box 259 - ■ 

■ 51100 Pistoia - Tel. 0573/380801 ■ 

■ Vendo per C64 centinaia di programmi a prezzi favolosi da ■ 

■ L. 5.000 a L. 15.000. Cassette con 6 programmi L. 20.000 ■ 

■ inclusa cassetta. N.B. Le spese di spedizione e del disco ■ 

■ (L 5.000) sono escluse. Luigi Palumbo - Viale Gramsci. 26 ■ 

■ - 80122 Napoli - Tel. 081 /660068 _■ 

Cambio, vendo, compro software (giochi, utility, programmi) 
per CBM 64. Dispongo anche di molte istruzioni in italiano 
Richiedere/inviare liste, telefonare ore pasti. Stefano Rossi - 
Via Oratorio. 43 - 52011 Bibbiena (AR ) - Tel. 0575/593854 

Cambio, vendo programmi su cassetta per Commodore 64 
come Benji. Beach Head. Solo Flight e altri. Scrivete o telefona¬ 
te a: Paolo Clery - Via Ponti Rossi. 37 - 80131 Napoli - Tel. 

081/7413749 _ 

Per C64 compro, cambio, vendo In blocco 50 giochi a scelta su 
lista di oltre 200 programmi a L. 50.000. Compro programmi in 
blocco a prezzi molto bassi. Inviate le vostre liste. Rocco Cam- 
bareri - Via S. Maria, 12 - 88068 Soverato (CZ) - Tel. 25954 

■ Per Commodore 64 compro programmi gioco, adventu- ■ 

■ res, grafica, simulazione, ecc, preferibilmente su disco. ■ 

■ Tratto solo forti quantitativi. Inviare elenchi dettagliatissi- ■ 

■ mi. G.B. Gerosa - Via Monte Santo. 6 - 22053 Lecco (CO) ■ 

Cambio, vendo programmi per CBM 64. A chi invia le liste, 
manderò le mie. Massima serietà. Massimiliano Gregnanm - 
Via XXV Aprile. 4 - 10036 Settimo Torinese (TO) - Tel. 
011/8010392 ___ 

Cambio e vendo tantissimi programmi per C64. Simon’s BASIC 
a L. 5.000. giochi a L. 1.000. Per informazioni. Adriano Belletti - 
Via Belvedere. 18 - 40069 Zola Predosa (BO) - Tel. 051 /751203 

Compro, cambio, vendo programmi di ogni tipo per il Commo¬ 
dore 64. Per informazioni telefonare a: Ivano Marchioro - Via 
Cavour. 11 - 35036 Padova - Tel. 049/793009 

Per Commodore 64 e Sinclair Spectrum disponendo di un 
notevolessimo archivio software vendo a L 10.000 cassetta 
con 5 giochi a scelta. Annuncio sempre valido. Ivano Parbuono 
- Via A. Di Cambio. 4 - 37138 Verona - Tel. 569649 
Per Commodore 64 vendo programmi di ogni genere compre¬ 
se ultime novità su nastro o disco a partire da L 2.000. Richie¬ 
dere lista gratuita, spedizione contrassegno ovunque. Gabriele 
Fanelli - Via Carlo Zaccagnini. 129 - 00128 Roma - Tel. 

06/6151345 _ 

È Cambio, vendo oftre 1.600 programmi per C64. Dispongo ■ 

■ di ogni tipo di programma: gestionali. Arcades. Adventure. ■ 

■ Totocalcio. Condominio, ecc. Per contatto immediato tele- ■ 

■ fonare a: Gionata Rossi- Via Podgora. 11 - 28100 Novara - ■ 

■ Tel. 0321/39004 _■ 

Vendo per C64 nuovissimi giochi e utility (Soccer. Falcon Ra- 
trol. Pole Position. Frogger. Hunchback. Solo Flight) a partire 
da L. 2.000 fino ad un massimo di L. 5.000 per Manie Miner. 
Francesco Donia - Via Ugo Soli. 9 - 90128 Palermo -’Jel. 
091/426143 


Vendo programma Turbo Tape per VIC 20 16 Kbyte. Diminui¬ 

sce i tempi di registrazione di 8/10 volte e funziona con pro¬ 
grammi da 8 o 16 Kbyte. Spedizioni celeri. L. 25.000. Oreste 
Natale - Via Don Ludovico. 9 • 95030 Pedara (CT) - Tel. 915638 
Dispongo di ottimo software per CBM 64 Molti giochi prove¬ 
nienti dall'America a prezzi incredibili. Esempio: Star Trek. Pole 
Position. Hunck Back. Popeye. Pac Man 3-D, ecc. Inoltre pos- 
jgo varie utility. Per informazioni scrivere o telefonare. Ciro 
oanè - Via Arcora. 2 • 80013 Casalnuovo (NA) - Tel. 8421498 

Per Commodore 64 cambio, compro, vendo 800 programmi di 
ogni tipo. Inviare listea: Fabrizio Raucci - Via Terme Di Traiano. 
38 - 00053 Civitavecchia (RM) _ 

Cambio o vendo giochi in linguaggio macchina. Cerco pro¬ 
grammi gestionali. Telefonare ore pasti. Tutto per il VIC 20. 
Mauro Moses Marion - Via Pio XI, 50 - 22066 Mariano Comen- 

se (CO) - Tel. 031 /748706 _ 

Vendo cassette con giochi in LM per C64 (Es. Hero. Popeye. 
Sam, Decathlon, ecc ). 50 giochi a L. 45.000. 100 giochi a L. 
80.000. supporto e spese di spedizione comprese. Massima 
serietà e velocità. Ercole Colonnese - Via B. Longo(P.co Vesu¬ 
vio). 211 - 80147 Napoli 

Cambio per C64 1.000 programmi di utilità e giochi. Telefonare 
ore pasti. Giuseppe Borracci - Via Mameli. 15 • 33100 Udine - 
Tel. 0432/291665 _ _ 

■ Compro, cambio, vendo programmi per C64. Arrivi setti- ■ 

■ manali da tutto il mondo. Mandate la vostra lista a: Andrea ■ 

■ Pieralisi - Via R. Sanzio. 27 - 60035 lesi (AN) - Tel ■ 

■ 0731/56065 ■ 


Compro tavolo appositamente ideato per Commodore linee 
4000-8000 più base metallica per Lina-20 Honeywell. Seba¬ 
stiano Bozzon - Via Prenestma. 639 - 00155 Roma - Tel. 
06/224970 _ _ 

Cerco per C64 i seguenti programmi utility: Errore Machine e 
Protector. Sono disposto a scambiarli con altri programmi di 
eguale valore. Daniele Ponzoni - Via San Marco. 2/D - 37138 

Verona __ 

Cambio, a Venezia e provincia, software per C64. Amir Baldis- 
sera - Via Cimarosa, 68 - 30030 Robegano (VE) - Tel 
041/482570 _ 

■ Per CBM 64 vendo centinaia di programmi: gestionali, ■ 

■ linguaggi, giochi, utility. Dispongo di Clone. Turbo Disk. ■ 

■ Multiplan. SuperBase. Logo. Easy Script. Dallas e tanti ■ 

■ altri. Per ricevere listino dettagliato scrivere a: Stefano ■ 

■ Dommioni - Via N. Tommaseo. 18 - 21100 Varese - Tel. g 

■ 0332/ 229909 __■ 

Cambio, vendo circa 250 fantastici programmi per C64. Pos¬ 
siedo: Koala con joystick. Bi-Sector. Disk Mimic. Mission Im- 
possible. Musicale. Flight Simulator II. Infomast. NATO Com- 
mander. Richiedete la lista a: Renato Menegatti - Via Piemonte. 
26 - 20052 Monza (MI) - Tel. 039/749540 

Per CBM 64 vendo programmi, giochi e utility a partire da L. 
3.000 (acquisto minimo 10 programmi). Disponibili su cassetta 
e disco. Dispongo di Turbo Tape. Simon’s BASIC e giochi 
stupendi in LM. Telefonare dalle 14.30 alle 18. Alessandro 
Miccolis - Res. Giunco (Milano 3). 122 - 20089 Milano (Basiglio) 

- Tel. 02/90754047 __ 

Compro fotocopie delle parti prima e seconda del linguaggio 
macchina per C64 apparse sui numeri 16 (Marzo 1984) e 17 
(Aprile 1984) di “Personal Software". Roberto Colombo - Via 
Kolbe. 3 - 20081 Abbiategrasso (MI) - Tel 02/9468747 

Vendo a prezzi folli giochi e utility per C64. Affrettati a chiedere 
la lista scrivendo o telefonando (ore 19) a: Carmela Rizzo - 
Piazza S. Paolo. 14 - 20041 Agrate Brianza (MI) - Tel 

039/652012 _ 

Vendo a L. 80.000 raccolta dei più potenti copiatori per C64. Su 
ogni disco: Doublé Image. Diskmimic. Quickcopy 2.0, Scopy. 
3Mincopy. Diskdoctor. Cpoy 190. Connection. Tape Back Up. 
Quick Format. Telefonare dopo le 19. Alfredo Dal Ferro - Via 
Fornace. 3 • 21040 Castronno (VA) - Tel. 0332/495929 

Vendo per CBM 40/8032 tutto il software di Ing. Capurso, 
MCS. Siag, Stress; paghe, contabilità, fatturazione, magazzino. 
Compilatore DTL a L 150.000. EPROM per 28 Kbyte più ma¬ 
nuali favolose per elaborazioni di alta professionalità. Paolo 
Stella - Via N. Moscardelli. 28 - 67100 L'Aquila - Tel. 
0862/23273 _ 

Vendo, per cambio sistema. C64 più registratore e joystick 
(tutti nuovi), 30 video giochi in LM. Turbo Tape a L. 650.000 
trattabili. Maio Giuseppe - Via S. Gaetano. 9 - 82100 Benevento 

(BN) __ 

Per Commodore 64 cambio, vendo oltre 400 programmi sia su 
floppy che su cassetta a prezzi bassissimi. Per informazioni 
telefonare ore pasti a: Santi Mondo - Via Spiaggia. 53 - 98057 
Milazzo (ME) - Tel. 090/924863 

Cambio, vendo oltre 1.300 programmi per Commodore 64 e 
Spectrum a L 1.500 - 2.500. Spedire l'elenco programmi per lo 
scambio oppure richiederlo per acquisti a: Bruno Mautone - 
Via Trentino. 74 - 80145 Napoli - Tel 081 /7540707_ 

Dispongo di oltre 1.000 programmi per C64. Risponderò ad 
ogni sessanlaquattrista che si vorrà mettere in contatto con me. 
Maurizio Giri - Via Appia. 10 - 06100 Perugia - Tel.057/66817 



Cambio, vendo più di 1.000 programmi per Commodore 64. 
Tutte le ultime novità in fatto di giochi e utility. Paolo Vergom - 
Via Appia. 69 - 06100 Perugia - Tel. 075/66918 

Cambio, vendo 300 stupendi programmi per C64 a prezzi bas¬ 
sissimi. Trapper. Snoopy. Frogger II e tanti altri a L. 8.00 Sam. 
Screen Graphics. Data Base Tape a L. 10.000. Scrivere per 
avere la lista. Mario Pellegrino - Via Cavour. 68 - 65100 Pesca¬ 
ra __ 

Eccezionale: vendo e cambio software per C64 a prezzi strac¬ 
ciatissimi. Inviatemi la vostra lista e vi invierò la mia. Programmi 
tutti a L. 2.000. li posseggo tutti, Scrivere a: Lucchini Marco - Via 
Marengo. 7 - 46045 Marmirolo (MN) 

Vendo programmi in LM per Commodore 64 a meno di L. 5.000 
Dispongo di utility tipo Sam Reciter, Simon's BASIC, Speed 
Script; giochi come Chine Miner. Beach Head. Zaxxon ecc. 
Assicuro risposta immediata. Raffele Celi • Piazza Garibaldi - 
88063 Catanzaro Lido - Tel. 31889 

■ Compro, cambio per C64 qualunque tipo di programma ■ 

■ sia su disco che cassetta. Possiedo oltre 1.000 programmi ■ 

■ in archivio con relativi manuali, invio lista dettagliata con ■ 

■ programmi. Massimo Mattioz - Piazzale Accursio, 4 - | 

■ 20100 Milano - Tel 02/36 7373 __ jp 

Cedo Toto Professional, il miglior programma di totocalcio per 
il CBM 64 a L. 100.000. Annuncio sempre valido. Piero Angeletti 

- Via Regina Margherita, 100-62012 Civitanova Marche (MC)- 

Tel . 0733/73060 _ 

Cambio, vendo molli programmi per VIC 20 anche espanso 
Inviatemi le vostre liste. Cassetta con 7 videogiochi (di cui 5 in 
LM) solo L 20.000. Il mio indirizzo è: Gregorio Lena - Viale 
Silvani. 3/2 - 40122 Bologna - Tel. 051/551178 

Cambio oltre 700 programmi di qualsiasi genere solo su disco 
per Commodore 64. Stefano Angeletti - Via Regina Margherita. 
100 - 62012 Civitanova Marche (MC) - Tel. 0733/73060 

Cedo mappa memoria ROM del Commodore 64 al modico 
prezzo di L 50.000. Annuncio sempre valido. Piero Angeletti - 
Via Regina Margherita. 100 - 62012 Civitanova Marche (MC) - 
Tel. 07 33/73060 __ 

Cedo Toto Professional originale Commodore per sviluppo 
sistemi totocalcio su disco o cassetta per C64 a L. 110.000 
trattabili. Lavinio Cerqueti • Via Vittorio Veneto. 41 - 62012 
Civitanova Marche (MC) - Tel. 0733/75997 

Cambio, vendo programmi su cassetta per C64 Prezzi modici. 
Per lista o informazioni rivolgersi a: Flaviomarco Mambelli - Via 
G. Valmarana. 68/A - 00139 Roma - Tel. 06/8122497 
Compro, cambio, vendo 200 programmi su cassetta per C64 da 
L. 500 a L. 2.000. A chi risponde programmi omaggio. Cerco 
stampante in cambio di tutti i 200 programmi. Adriano Bochese 

- Via G. Marconi, 8 - 37050 Belfiore D'Adige (VR) 

Vendo, cambio splendidi giochi su disco e cassetta per Com¬ 
modore 64: Simon's BASIC. Turbo Tape. Video 80 Colonne, 
Sintetizzatore Vocale. Mundial Soccer. Zaxxon e molli altri 
(prezzi modici). Francesco Arcidiacono - Via Acquedotto del 
Peschiera. 96 - 00185 Roma - Tel. 06/334746 
Ho da poco acquistato un Commodore 64: necessito di qualun¬ 
que tipo di software solo su cassetta. Inviatemi le vostre liste 
con relativi prezzi. Solo linguaggio macchina. Pierluigi Novello 

- Via Montaldo, 56 - 17010 Cengio (SV) - Tel. 019/554716 

Hai un C64? Finalmente su un'unica meravigliosa cassetta: 
Frogger. Skramble. Popeye. Jungle Hunt. Zaxxon, Decathlon. 
Aztec. Pittali. Pole Position. Centipede e altre hit. ad un prezzo 
super. Telefonare a: Andrea Tabanelll - Via Felisio. 23 - 48027 
Solarolo (RA ) - Tel. 0546/51123 _ 

Per Commodore 64 vendo programma Totocalcio che elabora 
sistemi integrali condizionati al numero dei segni 1-X-2. Fun¬ 
ziona anche con stampante. Per informazioni scrivere a: Seba¬ 
stiano Caramagno - Via Contrada Cipollazzo, 111 - 96011 

Augusta (SR) _ 

Per VIC 20 cerco i seguenti programmi: Wordcraft -Turile 
Graphics - Programmerà Aid - Hes Mon Writer - Vicat. Cerco 
inoltre schema elettrico programmatore di EPROM per VIC 20. 
Scrivere con urgenza a Vincenzo Carrone - Via G. Pascoli. 67 - 
86100 Campobasso 

Per C64 vendo Flight Simulator 2 con manuali. Scambio oltre 
100 programmi di ogni genere tra cui Koala Painter, Word 
Processor. Summergames. Dallas Quest, ecc. Telefonare ore 
pasti. Vittorio Boscotrecase - Via Cappella Vecchia. 8 - 80121 
Napoli - Tel. 081 /417397 

Cambio, vendo più di 400 programmi per CBM 64; tutte le 
ultime novità a L 2 000 l'uno. Stefano Castagneti - Via Banzola, 
14 - 43013 Langhirano (PR) - Tel. 0521/853123 

Compro, cambio, vendo oltre 600 programmi per Commodore 
64 sia su nastro che su disco. Inviare lista, specificando trattati¬ 
va a: Emanuela Casadio - Via Romea Sud. 1 - 48100 Ravenna 
(RA) - Tel. 0544/66507. 

Per Commodore 64 cambio, vendo oltre 2.000 programmi: 
giochi, gestionali, utility, matematici, finanziari, backup, inge¬ 
gneria. didattici, studi medici-dentistici, vari. Aggiornamento 
continuo novità Mariano Talamo - Via Colucci. 10 - 70019 
Triggiano (BA) - Tel 080/681470 
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Club di utenti Commodore 64 cerca altri possessori in tutta 
Italia por scambio idee, informazioni e software. Per Aderire o 
per informazioni scrivere a: Mauro Bonaldo - Via Negropontc. 
16 - 30126 Lido di Venezia - Tel. 0 : 

Vendo per Commodore 64 il programma della "Roulotte" su 
cassetta al prezzo eccezionale di L. 5.000 Michele Cassano 
Via Massaia. 31 • 71013 S Giovanni Rotondo (FG) Tel 
0882/856207 


Vendo VIC 20. piu cavi registratore C2N. fotocopia manuale in 
italiano. 6 giochi, cartuccia gioco, usato pochissimo, ancora in 
garanzia a L 320 000 trattabili Telefonare il lunedi - mercoledi 
dalle 16 alle 17 Alessandro Crostelli - Via Laurentina, 3-00142 
Roma Tel 06/5420871 


Cambio, compro e vendo per C64 oltre 1.000 programmil Ri¬ 
chiederò lista inviando la vostra* Disponibili Disk Mimic. Super 
Clone. Bi Sector Copy Cartndge! Disponibile all'acquisto all in- 

? rosso Paolo Gallo Via Garibaldi. 83 - 96014 Floudia (SR) - 
ol 0931/941056 

■ Ai ' o super programmi per CBM 64 (molti in I 

■ LM). comprendenti fantastici giochi 3D con computer la -1 
■ scabile Casio PB100 in discrete condizioni e che funzioni ■ 
■ Telefonatemi. Andrea Fabreilo - Via Div. Julia, 20 • 36011 ■ 
■ Ai siero (VI) • Tel 0445/71348 ■ 

Cerco programmi su nastro per Commodore 64 Inviare lista e 
modalità di pagamento, mi interessa tutto e soprattutto giochi. 
Utilities e software didattico Graziano Silvestri - Via Arcipelago 
Toscano. 6 • 57018 Vada (LI) 

Vendo, cambio programmi per VIC 20 e ZX Spectrum 16 Kbyte 
a prezzi eccezionali: un programma L 2.500 piu spese postali 
Christian Forcellim - Via Voltone. 52 - 47031 Repubblica di S 
Marmo - Tel 0541/992766 

li Favoloso* Vendo per Commodore 64 RTTY Soft L 15000. ■ 

■ Fori Apocalypse. Kong 64. International Soccer. Skram- ■ 
■ ble. Biliardo. Vortex. Pit Stop. Chess. Quasar, Robolron. ■ 
■ Shnmus. Hunck Back a L 35 000 In regalo Turbo Tape ■ 
■ Serietà Raffaele Angius - Via Petrarca. 70-71043 Manfre- ■ 
■ doma (FG) - Tel 0884/33542 ■ 

Vendo per C64 Football, Basket, Pole Posilion, Totocalcio e 
tanti altri programmi a L. 10.000 cadauno. Cerco inoltre pro¬ 
grammi di utilità. Livio Pugliese - Via A Volta, 93 • 74100 
Taranto - Tel. 099/413769 


Vendo computer Commodore 64 più registratore, software. 2 
joystick, riviste e libri a L 400000 Paolo Colombo - Via Cardi¬ 
nale Mc/zofanli. 28 • 20133 Milano - Tel 02/736620 

Vendo circa 200 programmi per VIC 20 a prezzi modici Accetto 
adesioni per costituire un club nel Molise Cerco inoltre lavoro 
come programmatore, anche saltuariamente, su macchine del - 
l'utente Vincenzo Carrone - Via Pascoli. 67 • 86100 Campo¬ 
basso ^Tel 0874 /91995 ____ 

Cerco software su disco per VIC. Mi interessa tutto purché non 
siano giochi Inviare le vostre liste a:'Russo Antonio - Via S 
Salvador. 164 - 47040 Torre Pedrera 

Per Commodore 64 cambio o vendo programmi su nastro 
Posseggo molti programmi Utilities, video games. ecc Scrivere 
o telefonare a Massimiliano Gregnanm - Via XXV Aprile. 4 
10036 Settimo Torinese (TO) • Tel 011/8010392 

Vendo CBM 64 In perielio stato piu alimentatore, registratore 
dedicalo, joystick, manuale italiano e 2 splendidi libri sul CBM 
64 Inoltre piu di 40 giochi tra i quali Arcadia. Pii Stop. Soccer. 
Scacchi Dispongo anche di più di 50 riviste e di un utilissimo 
apparecchio per utilizzare qualsiasi tipo di registratore Tutto a 
L. 680.000 non trattabili Solo zona Piemonte Eugenio Santo- 
marco Via Gazzera. 53/B - 10073 Cioè (TO) - Tel 
011 /3097052 (ufficio, ore 8-14) 

Attenzione* Vendo VIC 20. registratore CN2. espansione 16 
Kbyte. monitor Philips per VIC. stampante VC 1525.2 cartndge. 
90 programmi, joystick. Il tuttp a L 950 000* Luca Bocchiardo • 
Via Dos Geneys. 34/9 - 16148 Genova - Tel 010/391675 

■ Vendo pei C64 programma statist'eo. con controllo auto- ■ 

■ malico punteggio conseguito a L. 30 000 Solo su disco ■ 

■ Per ulteriori informazioni scrivere o telefonare dallo 14.30 ■ 

■ alle 15 30 Calcedonio Meli - Via G Amico Valenti. 89 - ■ 

■ 93100 Callnnissetta - Tel 0934/2336 ■ 

Vendo o cambio programmi per Commodoro 64 I giochi più 
belli e lo migliori utilità a prezzi inferiori a L 5.000. Andrea Arata 
Vi. .Ori i ormilo 57 19100 La Spezia M 0187/99720 

Occasione' Vendo 1 seguenti programmi per CBM 64 Som. 
Easy Script. Finance, Magic Desk. Diary 64. Turbo Tope, Si- 
mon s BASIC, Aztec. Gran Master. Calcio. Koala Painter. tutto a 
sole L 50000 Alberto Zeppilli - Via A Beni. 56 - 63023 Fermo 
(AP) - Tel. 0734/27424 


■ Per C64 e disk 1541 e disponibile il Disassemblato del ® 

■ DOS 1541 con le label commentate m italiano per prenota- ■ 

■ zioni telefonare il lunedi e il giovedì sera G Carlo Grass- - ■ 

■ Via Vasto. 81 - 46044 Gotto (MN) Tel 0376/607239 ■ 

Per Commodore 64 vendesi giochi di ogni tipo 100 titoli piu 
alcuni utility Prezzi eccezionali, massimo L 5 000 i giochi. L 
15000 utility Walter Mughim • Viale Bocchenfti. 7 - 50144 
Firenze - Tei 055/367931 _ 

Cambio, vendo programmi por Commodore 64 solo su nastro 
(includo anche Sirnon's BASIC e Turbo Tape) Sergio Ulisse - 
Via Asiago. 2 - 60124 Ancona - Tel 071/34495 _ 

■ Vendo per Commodoro 64 700 games - 300 utility - 100 ■ 

■ manuali • le più recenti novità a prezzi imbattibili. Si accet- ■ 

■ inno scambi solo ad adissimo livello Scrivere a: Franco ■ 

■ Fanlonl - P O Box 259 - 51100 Pistoia • Tel 0573/380 801 ■ 

Cambio, vendo programmi per Commodore 64 Inviatemi la 
vostra lista, riceverete la mia Annuncio sempre valido, rispon¬ 
do a tutti Marcello Clanzia • Viale Garibaldi. 8 - 84013 Cava dei 

Tirreni (SA) _ 

Per Commodore 64 cambio oltre 1.000 programmi tra i quali: 
Putti, copia fisica disco con errori in 40 secondi. Bi Sector. 
protezioni, gestionali Massimo - Milano - Tel 02/367373(ore 
serali) 

Compro, cambio, vendo programmi per CBM 64 sia su disco 
che su cassetta All'invio della lista risponderò con la mia. 
Giuseppe Marcellino - Via XX Settembre. 23 - 21052 Busto 
Arsizio (VA) - Tel 0331/632686 

Vendo Sirnon's BASIC. Pel Speed. 80 Colonne, GPascal, 
Speek Processor per Commodore 64. lutto con Turbo Tape 
(escluse le istruzioni) In blocco L 55.000 Cassette con 10 
giochi in LM L. 35.000 Roberto Borrelli - Via Panoramica. 31 - 
60100 Ancona - Tei 071/56512 

Compro, cambio programmi. Istruzioni e hardware per Com¬ 
modore 64. Gino Uglietti • Via Strambio. 108 - 27011 Beigioioso 
(PV) - Tel 0382/960804 

Per VIC 20 posseggo una vasta nastroteca di videogiochi, 
didattica, gestionali, grafica, per la casa, giochi di società che 
vendo a prezzi da sballo Ricco c dettagliato elenco a richiesta 
Walter Vanzetti - Residence Faul Via Ivrea. 74 -10016 Montano 
Dora (TO) 

Cerco per CBM 64 i seguenti programmi Rally. Abukir, La 
Battaglia del Lago Ghiacciato, su cassetta o disco Compro o 
cambio con altri programmi Paolo Btancalana - Via Gramsci. 
16 - 06074 Eliera (PG) - Tel 075/799255 

Vendo o cambio programmi per Commodore 64. tra cui diverse 
utility Sono tutti (o quasi) in LM Invio lista a chi mi invia la sua 
Prezzi bassi per gli acquirenti Roberto Carbonoh - Via Prima¬ 
ticcio. 86 - 20146 Milano • Tel 02/4150401 

Cerco possessori di C64 per (ondare un club nella zona di 
Alessandria Claudio Veroneso - Via Tonso. 75 - 15100 Ales¬ 
sandria_ 

Sono interessato all'acquisto di programmi di ogni genere per 
Commodore 64 Inviare listino con relativi prezzi Cottone Ma¬ 
no - Via Belvedere. 29 - 98060 Montagnareale (ME) - Tel. 
0941/35191 

Cambio per C64 programmi di ogni tipo su disco o cassetta. 
Rispondo a tutti Inviare la lista dei programmi a Paolo Secca - 
Via Roma. 1/F - 06063 Magione (PG) - Tel 075/843798 

A lutti gli utenti del CBM 64* Si è costituito il "CBM User's 
Club". Tutte le informazioni necessarie per aderire si richieda¬ 
no a. Antonio De Bustis - Viale Medaglie D'Oro. 189 - 00136 
Roma - Tel 06/3453578 

■ Per C64 vendo, cambio più di 550 programmi, tutti di ■ 

■ ottima qualità o mediti Teletonate o scrivete a Antonio ■ 

■ Zambon - Via Trieste. 2 - 31033 Castelfranco Veneto - Tel ■ 

■ 0423/491030 ■ 

Attenzione! Vendo VIC 20. i ,'N espansione 16 

Kbyte. monitor Philips per VIC 20. stampante VIC 1525. 2 car- 
tndge. 90 programmi, joystick, 6 libri sul VIC II tutto poco usato 
a L 950.000* Luca Bocchiardo • Via Des Geneys. 34/9 -16148 
Genova - Tei. 010/391675 

Causa passaggio a CBM 64. vendo (altiera dei VIC 20 più 70 
giochi su cassetta a L 200000 (non trattabili) Il sistema è in 
ottime condizioni ed é efficientissimo Telefonare ore pasti 
Luca Monticelli - Via F ili Bressan. 4 • 20126 Milano - Tel. 
02/2551762_ 

Vendo originale programma scritto da me che risolve i proble¬ 
mi dell'archiviazione dei libri Inoltre bellissima italianizzazione 
corretta di un Mail List Girano su CBM 64 più disco. Andrea 
Rigom - Via Giuseppe Verdi. 16 - 35031 Abano Terme (PD) - 
Tel 049/811447 


Vendo VIC 20 più istruzioni m italiano. 2 manuali, cartndge Star 
Post. 44 giochi su cassetta, il tutto in ottime condizioni a L 
220000 trattabili, anziché L 300 000 Giulio Mondolfo - Via 
Salvo D'Acquisto, 4 - 10015 Ivrea ( TO) - Tel 0125/46303 
Vendo 50 programmi per VIC 20 Inespanso Ira i quali: Scram- 
ble, Wacki. Kong. Shadowfax.ecc. Scrivetemi, invio lista Inoltre 
cerco disperatamente espansione 3-8 Kbyte RAM solo se vera 
occasione Vi aspetto* Giuliano Meritai - Viale Bovio, 131 - 
64100 Teramo - Tel 0861/53088 


Cambio, vendo software per Spectrum 16/48 Kbyte Inviato la 
vostra lista, vi invierò la mia. Prezzi: 16 Kbyte L 1 500.48 Kbyte 
L 20000 Sconti su grosse quantità Scrivereo telefonare (mo- 
giiosezona Torino). Maurizio Brugioto -Via Pio VII. 138 -10127 
Tonno • Tel 011/615827 

Vendo 55 giochi da 1 Kbyfe per ZX81 su cassetta a L 25 000 
Nel prezzo é compresa la cassetta (Sony C60) e spese di 
spedizione Lupetti Domenico - Vico Privalo Capurso. 38 - 
70126 Bari - Tel 080/336430 

Vendo Speclrum 16 Kbyfe completo più interfaccia joystick 
programmabile tipo Kempston. joystick, molto software o libri. 
Prezzo do concordare se in blocco. Contatterò telefonicamen¬ 
te Anita Mombolloni - Fermo Posta - 53100 Siena 

Vendo Spectrum 48 Kbyte. joystick, interfaccia programmabi¬ 
le. registratore. 4 libri sullo Spectrum. riviste varie, 170 pro¬ 
grammi in aumento, il tutto in blocco e solo in zona Treviso, a L 
500 000 Andrea Riva - Viale IV Novembre, 37 - 31100 Treviso • 
Tel 0477/542295 

Vendo o cambio centinaia di programmi per lo Spectrum 16/48 
Kbyte Richiedetemi gratis la lista Massima senetà. prezzi mo¬ 
dici e risposta assicurata Scrivetemi e rimarrete soddisfatti 
Stefano Frattesi - Via Marche. 28 - 60019 Senigallia (AN) - Tei 
071/6621155 _ 

Il Club Utenti Sinclair (C U S > vende programmi per Spectrum a 
prezzi convenienti Inoltre sono aperte le iscrizioni por l'anno 
1985 Per ulteriori informazioni: C.U.S. - Via Dante. 60 - 65010 
Spoltore (PE) 

Vendo software su misura per ZX Spectrum a specifiche del 
cliente Per esame di fattibilità e preventivi scrivere specifican¬ 
do sempre il modello di Spectrum che si possiede. Stefano 
Costa - Via Montana, 17 - 22100 Como - Tel 031/278026 

Vendo penna ottica per ZX Spectrum completa di istruzioni e 
programma di gestione a L 50.000 Rivolgersi a: Stefano Costa 
- Via Menlana, 17 - 22100 Como 

Vendo software di ogni tipo tra cui Jet Set Willy. Micro Okm- 
ptes. i due Decathlon. Mugsy. Night Gunner e tutta la sene dei 
giochi ultimate Massima serietà e risposta assicurata Stefano 
Tormamenti - Via Valsesia. 44 - 20152 Milano • Tel 
02/4568239 

Vendo programmi mollo betti per ZX Spectrum 16/48 Kbyte 
come Jet Set Willy. Vu File. Acquaplane e molli altri, tutti origi¬ 
nali a prezzi eccezionali Richiedere lista o telefonare ore pasti 
Massimiliano Capitò - Piazzetta Municipio. 9 - 89024 Polistena 
(RC) - Tel 0966/931669 

Vendo, cambio oltre 1 50 programmi per ZX Spectrum al prezzo 
massimo di L 3.000. In arrivo oltre 70 nuovi programmi inglesi 
originali Por informazioni e lista programmi rivolgersi a: Filippo 
Morelli - Via Gramsci S.N.C. - 07046 Porto Torres (SS) - Tel 
079/502358 (ore pasti) 

Cerco stampante per Spectrum In cambio di 150 programmi. 

Vendo programmi a L 1.000 cadauno (es. Atic Atac. Simulatore 
d» Volo. Choquered Flag. Manie Miner. Ant Attack. Vu Filo. 
Vu3D. VuCalc. Ingegneria) Davide Di Dio - Via Carlo Alberto. 46 
80045 Pompei (NA) - Tei 081/8635055 

Vendo ZX Spectrum 48Kbyte piu 350 programmi a L 500000 
In alternativa cambio con per Seriche per Commodore 64 Gu¬ 
glielmo Ferri • Via A Manzoni. 70 - 20030 Pama (MI) • Tel 
0362/861936 

Cambio oltre 200 programmi per Specrtrum 16/48 Kbyte in 
continuo aumento Inviate la vostra lista, avrete la mia al più 
presto Copio da computor Massima serietà Gian Franco Cor- 
dam - Via Ganan. 57 - 20146 Milano - Tel. 02/4089997 

Acquisto interfaccia programmabile per joystick adatto allo 
Spectrum 48 Kbyte Telefonare ore pasti chiedendo di Simone, 
Simone Bertoldi • Via Marconi. 7 • 22052 Cernusco Lombardo 
(CO) • Tel 039/597220 

Vendo ZX Spectrum più stampante Atphacom 32, interfaccia 
programmabile (oystick, 400 programmi. 3 libri a L 1 050 000 
Vendite anche parziali Rateazione 3mesi Affrettatevi! Giusep¬ 
pe Cardilo - Via Tiziano. 78 - 25124 Brescia - Tel 030/3681434 

Vendo, cambio, compro programmi su cassetta per ZX Spec¬ 
trum 16/48 Kbyte Inoltre vendo ZX Spectrum con più di 400 
programmi originali al prezzo di L 550 000 con super garanzia 
Luigi Fabeti - Via Campagnola. 3 - 25029 Vobarno (BS) - Tel 
0365/618388 

Vendo ZX Spectrum 48 Kbyte più interfaccia Joystick, joystick 
Spectravideo. 90 programmi, manuale in italiano, alimentatore 
e cavetti, il tutto con originate a L 700.000 trattabili Piero 
Badiello • Via C Battisi!. 5 - 35043 Moselice (PD) • Tel. 
0429/73697 _ 

Possiedo un Ql. (.orco • cambio informazioni - hardware • 
software • ecc. Gianluca Mercuri - Via F.D Pigafetta, 84 - 
00154 Roma - Tel. 06/5740989 


Vendo ROM personalizzata col vostro nome automatico sul 
video da applicare allo Spectrum. Contattare perdonagli anche 
al telefono Zoccolatura gratuita Dante Vialetto - Via Beltrame. 
9 - 21057 Olgiate Olona (VA) - Tel 0331/638521 
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Sinclair 


Vendo 300 programmi per Spectrum a L 65.000 in blocco o a L 
3.500 l'uno. Vendo inoltre 100 programmi per C64 a L. 75.000 in 
blocco o a L 5.000 l'uno (Breakdance. Popeye, Forbidden 
Forest). Telefonare a: Marco Palombo - Via G.A. Pasquale - 
00182 Roma - Tel. 06/8293163 

Cerco possessori del computer Sinclair QL per scambio di 
opinioni e informazioni sulla macchina. Oltre ad avere molta 
documentazione possiedo molti programmi di mia produzione. 
Scrivere a: Daniele Vergari - Via Segantini, 38 - 38068 Rovereto 
(TN) - Tel. 0464/36796 

Cambio, vendo oltre 250 giochi per Spectrum da 16o48Kbyte. 
Spedisco lista gratuitamente a chi la richiede. Scarpa Antonio • 
Via A. Moro. 63/12 - 30035 Mirano (VE) - Tel. 4355254 

Vendo ZX Spectrum 48 Kbyte più interfaccia 1. ZX microdrive. 
12 cartucce per microdrive. ZX printer, interfacce Kempston 
Victoria, alimentatore e cavetti a L. 800.000 oppure cambio con 
C64 più floppy. David Vittoria - Largo Zandonai. 3 - 20145 
Milan o - Tel. 02/ 4694100 

Vendo a. L 20.000 copie limitate ottimo d.profess. 48Kbyte 
con/senza header. Storage 15 file consecutivi, in totale 41802 
byte, cambio titolo ed esegue più copie degli stessi in 3 com¬ 
pattazioni. Per ulteriori informazioni telefonare a: Francesco 
Cerutti - Via Vittorio Emanuele. 15 - 20094 Buccinasco (MI) - 
Tel. 02/4473979 

Vendo ZX81 1 Kbyte RAM più cavetti registratore, manuale in 
inglese, cassetta con 3 giochi (comprato in Inghilterra). Tutto a 
L. 70.000. Costantino Costanzi - Via Della Birona. 27/B - 20052 
Monza (MI) - Tel. 039/328555 _ 

Vendo, cambio software Spectrum 16/48 Kbyte a L. 
1.800/2.200. Offerte quantitative. Inviare la propria lista con 
elenco delle istruzioni in possesso, vi spedirò la mia. Annuncio 
valido solo per Torino. Maurizio Brugiolo - Via Pio VII. 138 - 
10127 Torino - Tel. 011/615827 

Cambio, vendo programmi per ZX Spectrum 16/48Kbyte. Scri¬ 
vere o telefonare ore pasti per avere la lista con pi ù di 600 titoli. 
Prezzi competitivi (L. 2.000 - 4.000). Gianluigi Bergognini - Via 
Roveglio. 8 - 25087 Saló(BS) - Tel. 0365/40958 

Cambio il mio Spectrum in ottime condizioni completo di regi¬ 
stratore e 100 programmi con Commodore 64 con registratore 
Commodore in ottimo stato. Paolo Morganti - Via M Campio- 
riesi. 28 - 20135 Milano - Tel. 02/580909 4 

Vendo a metà prezzo libri Melbourne: "Spectrum Hardware 
Manual”. "Spectrum ROM Disassembly". "Super Charge Your 
Spectrum". "Advanced Spèctrum Machine Language" come 
nuovi (totale L 47.000). Osvaldo Carlon - Cannareggio 4588 - 
30121 Venezia - Tel. 041/83146 (telefonare al sabato) 
02/73961 (Milano - ufficio) 

Vendo ZX Spectrum 48 Kbyte a L. 450.000. Programmi 16 Kbyte 
L 1.500-3.00 programmi 48 Kbyte L. 4.500-7.500 A chi acquista 
lo ZX regalo i programmi rimasti. Andrea Mosconi - Via XI 
Febbraio. 2 - 27100 Pavia - Tel. 0382/25830 _ 

Cambio programmi per Spectrum 16/48 Kbyte.Scrivere o tele¬ 
fonare per la lista. Ivan Viggiani - Via Rubinacci. 31 - 80147 
Napoli - Tel. 081/272211 

Cambio per Quantum Leap e Spectrum idee e software. Inoltre 
contatto futuri possessori di QL per fondare user-club. Roberto 
Ghezzi - Via Volontari del Sangue. 202 • 20099 Sesto S. Gio¬ 
vanni (MI) 


Svendo ZX Spectrum 48 Kbyte nuovissimo più 200 giochi (Atic 
Atac. Manie Miner. Simulazioni, ecc.), libro "La programmazio¬ 
ne dello ZX Spectrum". cavi, libretto istruzioni. Tutto alla modi¬ 
ca cifra di L 450.000. Preferibilmentetrattocon Napoli. Giusep¬ 
pe Santarcangelo - Via Recanati. 99 - 80046 San Giorgio a 
Cremano (NA) - Tel. 480360 _ 

Per ZX Spectrum cerco software di tutti i tipi. Inviare lista. 
Eseguo inoltre programmi gestionali - contabilità IVA - magaz¬ 
zino - paghe completamente personalizzati su m.d. o cassetta. 
Davide Guernieri - Via Stazione. 2/1 - 30030 Mirano (VE) 

Cercate un programma per il vostro Spectrum? Forse io ce 
l'ho. Scrivetemi o telefonatemi le vostre richieste. Risponderò a 
tutti. Inoltre sono interessata a tutto per lo Spectrum. Doriana 
Orlandi - Via Quasimodo. 6 - 46023 Gonzaga (MN) - Tel. 
588555 _ 

Vendo nuovissimo libro per ZX81 “Impariamo ad usare il per¬ 
sonal computer" a L 20.000. Prezzo di copertina L 24.000. 
Fornisco anche schemi elettrici di schede Hi-Res e interfacce 
dello ZX81. Luigi Girardi - Via M. Faliero. 24 - 37138 Verona - 
Tel. 045/566377 


Volete ingrandire la vostra raccolta di software per ZX Spec¬ 
trum 16/48 Kbyte? Posso aiutarvi: vendo i miei programmi 
(circa 200) a prezzi modicissimi, approfittatene! Sono disposto 
anche a cambi. Telefonare ore pasti. Fabio Compagnoni - Via 
Forze Armate. 6 - 20147 Milano - Tel 02/4081457 

■ Vendo programmi per Spectrum a L. 500 - 1.000 - 2.000 ■ 

■ cadauno. Tutte le novità: TLL - Enduro. Dartz. Antics, Les ■ 

■ Flics. Hulk. Tennis. Pedro. Shuttle. Zaxxon. Snownman. ■ 

■ ecc. Richiedere lista gratuita. Massima serietà. Massimo ■ 

| Carosi - Via D. Forte Tiburtino. 98 - 00159 Roma ■ 

Vendo, cambio oltre 150 programmi per ZXSpectrum al prezzo 
massimo di L. 3.000. In arrivo 70 programmi con le ultime novità 
inglesi. Per informazioni e lista programmi rivolgersi a: Filippo 
Morelli - Via Gramsci S.N.C. - 07046 Porto Torres (SS) - Tel. 

079/502358 _ _ 

Cambioo vendo programmi per Spectrum 16/48 Kbyte. Inviare 
propria lista. Cerco disperatamente le Olimpiadi e Hurg. Eraldo 
Sanquirico - Via San Pio V, 36 - 10125 Torino 

Vendo eccezionale programma di studio di funzioni per ZX 
Spectrum 48 Kbyte come da originale, grafici, prova, ricerca, 
coordinate, ingrandimento. Su cassetta con istruzioni L. 10.000. 
Raffaele Maggioni - Via Dè Morelli. 20 - 50124 Firenze - Tel. 

055/2298109 _ 

A lutti gli Spectromani: ò a disposizione la mappa completa del 
castello di Atic-Atac al prezzo di L 10.000. pagamento antici¬ 
pato. Massima serietà. Diego Bertazzi - Via Vittorio Veneto. 5 - 
10014 Caluso (TO) - Tel. 011 /9832594 ____ 

SI è costituito il "Computer Club Ciriè" per utenti Sinclai pro¬ 
grammi. libri e riviste a disposizione dei soci. Per informazioni 
scrivere o telefonare dopo le 19. Pasquale Speranza - Loc. 
Vastalla. 80 - 10073 Ciriè (TO) - Tel. 011 /9236137 _ 

Vendo Spectrum 48 Kbyte issue 3 più stampante Seikosha 
GP50S a L 600.000. All'acquirente regalo 200 programmi e 
diversi libri. Cedo anche separatamente. Funzionamento per¬ 
fetto. Dario Durante - Via Meucci. 22 - 64022 Giulianova (TE) - 

Tel. 085/862482 __ 

Vendo Spectrum 48 Kbyte più stampante GP50S. radioregi¬ 
stratore. 8 libri. 200 programmi, il tutto a L 950.000 (valore 
1.500.000). Hubert Tornasi - Via 4 Novembre, 64 - 39012 Mera¬ 
no - Tel. 0473/43475 _ 

Offro programmi su cassetta o solo listati per ZX Spectrum e 
VIC 20 a prezzi convenienti. Dispongo di: Puc Man. Biliardo. 
Centipede. Frogger. ecc. Telefonare dalle 18 alle 19. Mauro 
Morini - Via Torrente Venola. 27 - 40043 Marzabotto (BO) - Tel. 
051/93266 


Texas 


Vendo. TI 99/4A più accessori (cavo registratore, alimentatore, 
modulatore, manuale, numerosi listali, cassette giochi) a L 
170.000. Modulo SSS TI-CALC (VisiCalc versione TI 99 - matri¬ 
ce 256 x 67) corredato di manuale italiano a L. 60.000. Modulo 
Extended BASIC più manuale, espansione memoria 32 Kbyte. 
giochi Extended BASIC (Cavern Quest. Moonbeam Express) a 
L. 320.000. Blocco moduli SSS TI - Invaders. Alpiner più 3 
cassette (Pirate. Ghost Town. Golden Voyage) più 3 cassette 
primi numeri di 'TI 99 Newsdl" e relative riviste a L. 100.000. 
Per acquisto cumulativo regalo cassette giochi Extended BA¬ 
SIC (Kong. Bounger, Strike F. 99. Jim Giungle e altri) più raccol¬ 
te listati Tl-Ex-BASIC "Terrific Games TI 99/4A" e "TI GAMES 
di Compute". Telefonare dopo le ore 21. Lorenzo Silvestri - Via 
L Angeloni. 67 - 00149 Roma - Tel. 06/5284854 
Compro per TI 99/4A giochi sia in cartrldge che in cassetta. 
Cerco modulo Extended BASIC ad un prezzo non superiore a L 
200.000. Scrivere a: Luca Verzello - Via Cà Granda. 2 - 20162 
Milano - Tel. 02/6438396 _• 

Per TI 99/4A cerco a prezzo straccialo peripheral box e disk 
drive completo. Inoltre vendo software (anche Extended BA¬ 
SIC). Scrivere o telefonare (possibilmente non la sera). Lorenzo 
Marsigli - Viale dei Martiri. 1 /B - 40053 Bazzano (80) - Tel. 
051/831479 _ 

Compro per TI 99/4a modulo SSS Video Scacchi completo di 
istruzioni ad un modico prezzo. Scrivere a: Luigi Venga - Via 
Nuovalucello. 87/M - 95100 Catania 
Straordinario: vendo Texas TI 99/4A più interfaccia registrato- 
re. software. MZ-731 (registratore e plotter) a sole L 990.000. 
Ferdinando Urtoler - Via Solferino. 8 - 46100 Mantova - Tel. 
0376/328668 __ 

Eccezionale: vendo per TI 99/4A programma su cassetta che 
sviluppa con o senza riduzione sistemi del Totocalcio a L 
30.000. Pinuccio Ronchetti - ViaTorriani. 17 - 22033 Asso (CO) 
- Tel. 031/682544 

Vendo TI 99/4A, joystick, manuale, modulatore PAL TV. cavet¬ 
to registratore. 5 moduli SSS. 4 libri, cassetta con 30 programmi 
in BASIC a L. 400.000. cassetta lezioni di BASIC. Claudio Pas- 
sarello - Corso G. Ferraris. 2-10121 Torino - Tel. 011/516686 

Per TI99/4A acquisto se prezzo veramente interessante modu¬ 
li SSS Minimemory, Editor/Assembler più peripheral box. RAM 
exp. card. RS232 card, disk control card, disk drive card. Giu¬ 
seppe Giudici - Via S.Liberata, 11 /A - 21053 Castellanza (VA) - 
Tel. 0331/500253 


Compro per TI 99/4A il modulo Extended BASIC in buone 
condizioni completo di manuale. Prezzo non superiore alle L 
80.000. Scrivere o telefonare a: Stefano Moroni - Via Gennaro 
Sora. 14 - 24020 Fiorano Al Serio (BG) - Tel. 035/710525 

Vendo a prezzi impossibili sei moduli SSS per TI 99/4A: Scac¬ 
chi. Musicmaker. Parsec. Moonmine. Munchman. Alpiner. 
Scrivere a: Marini Maurizio - Via Torino. 33 - 04024 Gaeta (LT) 

Vendo simulazione di volo in tempo reale per TI 99/4A con 
Extended BASIC, possiede ben 10 strumenti e posso assicura¬ 
re che è veramente eccezionale, a solo L. 10.000. Aldo Toma- 
selli - Via Roma. 18 - 38059 Strigno (TN) - Tel 0461 /762007 

Cerco disperatamente per TI 99/4A modulo SSS Extended 
BASIC e se possibile Sintetizzatore Vocale, ambedue funzio¬ 
nanti Scrivetemi. Stefano Berte - Via De Amicis. 30 - 46037 
Roncoferrare (MN) - Tel. 0376/663550 
Compro per TI 99/4A moduli SSS di giochi, Terminal Emulator, 
Sintetizzatore di Voce e Minimemory. Pregasi scrivere e non 
telefonare. Cristina Bassi - Via Leopardi. 18 • 22077 Olgiate 
Comasco (CO) 

Vendo TI 99 piu coppia joystick ? libri. 5 SSS (Vkfeodiess • 
Donkey Kong - MeteorMultiplication -2Adventure Module). 10 
Adventures. registratore, cavo TV. cavo registratore, program¬ 
mi vari su cassetta e listati. Claudio Latini - Via Rosselli. 14 - 
22100 Como - Tel. 031/558917 

Vendo o cambio listati in BASIC semplice o Extended per TI 
99/4A dalle migliori riviste americane, inglesi e francesi. Um¬ 
berto Bigazzi • Via Madonna Alta. 97 - 06100 Perugia - Tel. 
075/ 73596__ 

Vendo TI 99/4A più Extende BASIC, joystick, modulo SSS 
Soccer e Munchman più 150 programmi a L 400.000. Umberto 
Bigazzi - Via Madonna Alta. 97 - 06100 Perugia - Tel. 
075/7 3596 _ 

■Cerco linguaggio di programmazione TI Logo per TI ■ 

«99/4A Augusto Saltarelli - Via C. Brean, 2/C - 11100 ■ 
H Aosta - Tel. 0165/553087 _■ 

Vendo in blocco TI 99/4A, modulo Scacchi, libri vari sul BASIC 
e cassette programmi. Pietro Viani - Via 5 Maggio. 11 - 20157 
Milano - Tel. 02/3552508 

Vendo modulo Minimemory per TI 99/4A. manuali in inglese ed 
in italiano, manuale Editor Assembler a L. 400.000. All'acqui¬ 
rente regalo TI 99/4A completo con 150 programmi BASIC e 
Assembler. Massimo Zanconaro - Via Manzoni. 20 - 37138 
Verona - Tel. 045/575641 


Varie 

Vendo Intellevision come nuovo corredato di 7 cassette perfet¬ 
te usato pochissimo. Telefonareore pasti al 2 1 59683di Milano. 

■ Per CBM 64 e Sharp 700 vendo tutti I programmi di produ- ■ 

■ zione propria gestionali, utilità, giochi Turbo nastro e Tur- ■ 

■ bo disco, sintetizzatore vocale. Prezzi bassi. Claudio Gio- ■ 

■ vanelli - Via Ripamonti. 194 - 20141 Milano - Tel. ■ 

■ 02/ 536926 ■ 

Club vende programmi ultime novità su disco e nastro. Dispo¬ 
niamo di moltissime utility che farannoal caso vostro. Accettasi 
anche scambi di software. Annuncio sempre valido. Stefano 
Baldoni - Via Della Magliano. 277 - 00146 Roma - Tel. 
06/5271210 _ 

Vendo o cambio programmi - linguaggi per la sene Sharp 
MZ-700. Micheloni Roberto - Via Bertaldia. 3 - 33100 Udine - 
Tel. 0432/202877__ 

■ Vendo sistema compatibile Apple II nuovo con computer ■ 

■ 48 Kbyte. tasti funzione, disk drive Slim Line, monitor. ■ 

■ controller e programmi a L 1.350.000. Stampante Tally ■ 

■ MT80 a L. 700.000. Adriano Zuin - Via M. Buonarroti. 1 - ■ 

■ 20030 Senago (MI) • Tel. 02/99010421 ■ 

■ Vendo computer Sharp MZ-731 completo di registratore e B 

■ stampante plotter 4 colori, apparecchio nuovo, imballato. H 

■ in garanzia. Valore commerciale L 1.250.000. Cedo a L. ■ 

■ 800.000 non trattabili. Marco Papi - Via Pace. 25 - 62100 ■ 

■ Macerata (MC) - Tel. 0733/48184 ■ 

Vendo Atarl CX 2600 in buono stato con o senza cassette 
(totale 10) a L. 450.000 o cambio con un Commodore VIC 20 
anche senza registratore. Telefonare ore pasti. Luca Grimaldi - 
Corso Europa. 161 - 20017 Rho (MI) - Tel. 02/9306129 

Cambio, vendo tutti I migliori programmi su disco o su cassetta 
a prezzi incredibili. Scrivere per credere. Risposta gratuita a 
tutti. Si scambia volentieri. Massimiliano Sartor - Via Calatafimi, 
59 - 56015 Oratoio Pisa (PI) - Tel. 980203 
Vendo Tandy TRS80 Mod. 2. 2 dischi, stampante Honeywell, 
video semigrafico a L. 6.000.000. Telefonare ore pasti. Paola 
Mancini - Via Leopardi. 241 / A - 20099 Sesto S. Giovanni (MI) - 
Tel. 02/2473992 

Vendo software per IBM PC o cambio con hardware sempre 
per IBM PC. Telefonare ore pasti o scrivere a: Francesco Maz- 
zotta - Via Suvereto. 250 - 00139 Roma - Tel. 8127068 

Cambio software per Speclrayideo 318/328. Scrivete o telefo¬ 
natemi ore pasti. Massima serietà. Riccardo Lettieri - Via Con¬ 
salvo. 120/B - 80126 Napoli - Tel. 081/624925 
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Vendo programma tu castella per Sega SC-3000che sviluppa 
sistemi per cercare di realizzare il sognato 12 all'Enalotto. 
Giovanni Nucatolo • Via Andrea Carreca. 2 - 90145 Palermo - 
Tel.091 /313377 

Vendo per Micro Z80 N.E.: configurazione CP/M; due schede 
aggiuntive: "Computer Parlante' 1 e "Grafica Sovrapposta" con 
relativo software; espansione 32 Kbyte RAM Eseguo schede 
personalizzate. Marco Sudetti - Via Martin della Libertà. 52 - 
10040 Burgaretto Stupimgi (TO) * Tel. 011/3580200 

Vendo in blocco o separatamente compatibile Apple II (48 
Kbyte), disk controller, driver Mitac e monitor Philips 12". Forte 
sconto a chi acquista l'intero sistema. Daniele Cerchi • Via C. 
Raffo. 10 - 16039 Sestri Levante (GE) - Tel. 0185/45653 

Vendo MPFII 64 Kbyte - Apple compatibile • un anno di vita 

con tastiera esterna, duodisk controller, joystick in imballi origi - 
nali con vari programmi a L. 600.000 in contanti. Telefonare in 
orario di cena. Alberto Venturi - P.tta S. Biagio. 4-5110 Pistoia - 
Tel. 0573/31721 


Cerco possessori del nuovo personal computer Amstrad CPC 

464 per fondare il primo club su questo computer. Telefonate e 
scrivetemi. Gianfranco Torrasca - Via Alessandro Volta. 30 - 
19100 La Spezia - Tel. 514540 

Cerco stampante Epson RX-80F/Tpossibilmente interfacciata 
RS232C o stampante dalle analoghe caratteristiche. Eventual¬ 
mente acquisto interfaccia RS232C. Renzo Rossi - Via Bersa¬ 
glio. 25 - 33100 Udine - Tel. 0432/207494 


Compro, cambio, vendo programmi per Sega ed invito tutti i 
lettori possessori di questo computer a contattarmi per fondare 
un "SC-3000 User Club". Possiedo molti programmi, utility e 
giochi. Affrettatevi! Leonardo Luccone - Via A Cechov. 115 
Scala C/8 - 00142 Roma - Tel. 06/5038157 
Compro listati di programmi per Sharp MZ-700. Inviare le liste 
a: Giambanco Agostino - Via D. D'Amico Complesso Bruno - 
9001 B agheria (PA) - Tel. 091/935839 

Attenzione' Vendo e cambio software di qualsiasi genere, si¬ 
mulatori. copiatori (anche per un solo header), giochi a prezzi 
bassissimi. Risposta assicurata. Fulvio Chianese - Via Virgilio. 
17 - 34170 Gorizia - Tel. 0481/33183 

Vendo Apple compatibile perfetto con manuali, imballato. 64 
Kbyte. due drives incorporati, tastiera esterna 6502 e Z80 con 
tutto il software AppleDOS e CP/M; ottimo per gestionale L 
1.500.000. Giuliano Gaudenzi - Via Della Fortezza. 7 - 50129 
Firenze - Tel. 055/499549 

Vendo programmi per MZ-700. Scrivere o telefonare per infor¬ 
mazioni. Giochi, gestionali anche su ordinazione. G. Franco 
Acerb i - Via Vec ellio. 112 - 35100 Padova - Tel. 049/605216 
Cambio consolle Intellevision con 4 cassette gioco con Com¬ 
modore VIC 20 e registratore solo se nuovo d'imballaggio. 
Nicola Portas - Via Molise. 14 - 09100 Cagliari. Tel. 070/490697 

Vendo MPF II 64 Kbyte RAM, Applesoft compatibile, più inter¬ 
faccia per 2 disk drive. 1 dnve. disco master con vari programmi 
e giochi, manuali in italiano a L 1.100.000. Alberto Franceschini 
- Via Dell'Orso. 7 - 40121 Bologna - Tel. 051/222351 
Vendo Enciclopedia di Elettronica e Informatica in 8 volumi 
rilegati, nuovissimi. Ed. Jackson, a L. 300.000. Luciano Motta - 
Via Don Sordo. 7 - 38100 Trento - Tel. 0461/984644 

Vendo per CBM 64. Sharp 700 e tutti gli MSX tutti I programmi di 
produzione propria, gestionali, utilità, giochi originali. Turbo 
Nastro e Turbo Disco, Sintetizzatore vocale. Prezzi bassi. Clau¬ 
dio Giovanelli - Via Ripamonti. 194 - 20141 Milano - Tel. 
02/536926 


Eccezionale: vendo cartridge duplicati su cassetta a prezzi 
strabilianti. Telefonare dopo le ore 20 o scrivere a: Andrea 
Pannella - Via Castelli. 19 - 56025 Pontedera (PI) - Tel. 
0587/212256 


Vendo base Intellevision con Burger Time. Auto Racing. Calcio 
(Soccer). Poker e Blackjack. Avanced Dungeons And Drugons. 
Il tutto completo di schedine e contenitori. Claudio Latini • Via 
Rosselli. 14 - 22100 Como • Tel. 031/558917 


Vendo Sega SC-3000 vinto due giorni dopo l'acquisto di uno 
Spectrum nuovo, mai. dico mai usato e ancora in imballo origi¬ 
nale. Telefonare ore ufficio. Massimo Luparelli - Via S. Lucia, 1 - 
74024 Manduria (TA) - Tel. 099/671126 


Vendo consolle Intellevision più 5 cassette (Basket. Soccer. 
Star Strike. Black Jack. Poker) a L. 280.000 non trattabili. Enrico 
Birolini - Via Torretta. 7 - 24100 Bergamo - Tel. 035/210089 


Vendo Intellevision con 5 cassette. Tutto a L 250.000. Telefona¬ 
re dopo le 19. Alessandro Belgiovine - Via Magellano. 2 - 20094 
Corsico (MI) - Tel. 02/4478481 


Vendo Video game Intellevision completo di 4 cassette: Calcio. 
Basket. Tennis. Poker, il tutto a L 200.000. Telefonare dopo le 
ore 20. Ugo Piscedda - Via A. Volta. 54 - 20090 Cusago (MI) - 
Tel. 9019771 


Vendo compatibile Apple 48 Kbyte più floppy disk con interfac¬ 
cia. monitor, paddle, manuale, programmi vari (giochi, data 
base. Apple Writer. contabilità e altri), praticamente nuovo, vero 
affare a L 1.600.000. Luigi Provaggi - Via Delle Peschiere. 41/7 
- 17025 Loano (SV) - Tel. 019/669563 

Vendo compatibile Apple, 2 drive, interfaccia, monitor 12" fo¬ 
sfori verdi, language cani? joystick, più di 200 dischi di pro¬ 
grammi tra cui: gestione condomini. The Last One. VisiCalc. 
Locksmith 5.0. ingegneria, ecc. Domenico Baudissone - Via 
Vecchia di Cuneo. 10 - 12011 Borgo San Dalmazzo (CN) - Tel. 
0171/76070 
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computer IBM 
e compatibili 
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SERVIZIO SOFTWARE 



P.S. propone ai propri lettori i dischi o le cassette dei programmi 
pubblicati. I programmi, provati e garantiti, sono di immediato utilizzo. 



P.S. n° 

Programma 

Sistema 

3 

La carta del cielo 
Collisione 

Apple II 

4 

Interi in precisione 
multipla 

Grafica 3D 

Apple II 

5 

Pretty printer 

Shape table 

Apple II 

7 

Data base modulare 

Apple II 

12-13 

Wei-ch'i 

CBM 3032 

14 

Tool-Kit 

C 64 

19 

Type Writer 

V1C 20 

20 

Scopa 

C 64 - 3032 


Prezzo 

Codice 

Supporto 

30.000 

' 1 

Disco 

40.000 

4 

Disco 

30.000 

6 

Disco 

25.000 

7 

Disco 

20.000 

8 

Cassetta 

35.000 

9 

Cassetta 

30.000 

10 

Disco 

25.000 

11 

Cassetta 


Per richiedere i programmi in contrassegno, pagando direttamente al postino la cifra indicata, inviare II seguente tagliando 

Spedire in busta chiusa a Gruppo Editoriale Jackson • Via Rosellini, 12 - 20124 Milano ^ 

- 


Inviatemi i seguenti nastri e/o dischi con i programmi 
pubblicati su P.S. 


GRUPPO EDITORIALE JACKSON 


Cod. 

Cod. 

Cod. 

Cod. 

Cod. 


1 1 

1 

1 

1 

1 

al L 

i 

1 

1 

1 

1 

Cognome 

Nome 

1 1 

1 

1 

1 

_1 

a L. L 

i 

l 

1 

1 

1 

1 1 

1 

1 

1 

| 

a L. L 

i 

1 

1 

1 

1 


I | 

I 

1 

1 

| 

a L L 

i 

1 

1 

1 

1 

CAP 

1 L 

L 

L 

J 


a L. L 

L 

L 

L 

I 


Città 


• SPESE POSTALI 

(contributo Asso) L. 3.000 TOTALE L. L 


che pagherò al postino allo consegna del pacco 


Rrma 
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Novità 



M. Di Vizio 

LOGO, POTENZA E SEMPLICITÀ 

L Informatica é destinata a diventare una delle 
componenti di una buona cultura generale del¬ 
l'individuo medio. Questo libro mira a far cono¬ 
scere il LOGO a un pubblico di cultori dell'in¬ 
formatica, che vogliono approfondirla o che 
hanno l'obiettivo di farne apprendere l'ABC a 
degli utenti 'in erba' 

Cod. 508A Pag. 216 Lire 20.500 

Valerio Alessandrom 
Pancrazio Galeano 

i CONTROLLORI PROGRAMMABILI 

I controllori programmabili permettono di rea¬ 
lizzare automatismi industriali molto semplici 
(limitati a singole macchine operatrici) o molto 
complessi (linee flessibili o reparti automatiz¬ 
zati) Questo libro, realizzato con il supporto 
tecnico della Telemecaraque S.p.A si propo¬ 
ne, per la prima volta in Italia, di offrire una 
trattazione organica e completa su una tecno¬ 
logia che sta vivendo una rapida espansione 
di mercato 

Cod. 206A Pag. 256 Lire 24.000 

Marco Rosaclot 

LA FISICA CON IL COMPUTER: 

LA DINAMICA 

Questo libro propone l'utilizzo delle tecniche 
di simulazione su calcolatore per visualizzare 


e studiare l'andamento temporale di un siste¬ 
ma: lo scopo è quello di consentire allo studen¬ 
te di confrontarsi con problemi anche comples¬ 
si, concentrandosi sugli aspetti fisici e ignoran¬ 
do in buona parte formalismi matematici. 

Il disco contiene tutti i programmi in Basic per 
Apple Ile. 

Cod. 550A Pag. 268 Lire 50.000 

Amadio Gozzi 

MASTER TVC 1 
MASTER TVC 2 

L'accoppiata MASTER TVC 1 e MASTER TVC 
2 passa in rassegna tutti i circuiti dei televisori 
a colon vecchi e nuovi, spiegandone il funzio¬ 
namento direttamente sugli schemi elettrici. 

Di ogni stadio vengono presentate le soluzioni 
circuitali relative alle molte marche in commer- 
cjo 

Cod. 708P Pag. 160 Lire 30.000 

Cod. 709P Pag. 160 Lire 30.000 


Maurizio Piccoli 

FENDER 

storia di un mito (1945-1985) 

libro abbraccia tutto ciò che dal 1945 ai giorni 
nostri è uscito con il marchio Fender, privile¬ 
giando adeguatamente quegli strumenti di 
maggior interesse sui quali si puntano gli occhi 
dei fans della casa americana. 

Cod. 800H Pag. 260 Lire 28.000 


Goffredo Haus 

ELEMENTI DI INFORMATICA 
MUSICALE 

,Gli argomenti trattati comprendono: elementi 
di matematica di base, descrizione formale di 
fenomeni musicali: tecniche di analisi, elabora¬ 
zione e sintesi del testo musicale: tecniche di 
analisi, elaborazione e sintesi del suono: meto¬ 
di per la rappresentazione grafica di informa¬ 
zioni musicali: elementi di ingegneria del 
software musicale; elementi sulle architetture 
dei sistemi per l'elaborazione musicale; ele¬ 
menti sulle tecnologie avanzate utilizzate nel 
settore 

Cod. 802H Pag. 234 Lire 22.500 


Don L. Cannon 

SISTEMI DIGITALI 
manutenzione, ricerca ed elimina¬ 
zione guasti 

I libro, destinato a coloro che desiderano, per 
hobby o per lavoro, apprendere le tecniche 
impiegate per localizzare i guasti dei sistemi 
digitali, spiega i concetti ingegneristici fonda¬ 
mentali e le nozioni basilari dell'elettronica e 
presenta poi alcune applicazioni pratiche 
Cod. 200A Pag. 303 Lire 28.500 
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La biblioteca che fa testo. 


ritagliare (o fotocopiare) e spedire in busta chiusa a: 

GRUPPO EDITORIALE JACKSON - Divisione Libri ■ Via Roselline 12 • 20124 Milano 

CEDOLA DI COMMISSIONE LIBRARIA 



VOGLIATE SPEDIRMI 


n° copie 

codice 

Prezzo unitario 

Prezzo totale 













Totale 



□ Pagherò contrassegno al postino il prezzo indicato più L 3.000 per contributo fisso 

spese di spedizione. 

Condizioni di pagamento con esenzione del contributo spese di spedizione: 

□ Allego assegno della Banca □ Allego fotocopia del versamento 

su c/c n. 11666203 a voi intestato 


□ Allego fotocopia di versamento 
su vaglia postale a voi intestato 


Nome 


Cognome 


Via 


Cap 


Città 


Prov 


Data 


Firma 


Spazio riservato alle Aziende. Si richiede remissione di fattura 


Partita I.V.A. 


11 


ORDINE 
MINIMO 
L. 50 000 





























23 


Brescia 
5 Marzo 


985 




H 





La manifestinone e aperta ai visitatori nei giorni 2 3 Marzo. 
Nei giorni 4 5 Marzo l'ingresso t riservato ai biglietti invilo. 


Il computer 

per conoscere,capire e scegliere 
il tuo futuro 


Quartiere fieristico E.I.B. 
Tangenziale Ovest - Via Orzinuovi 


E‘ un 'org*mtxjutor>+ PROGRAM 










